コレクションに新しいメンバーを追加するには、Add メソッドを使用します。
たとえば、次のコードでは、新しい画層を作成し、Layers コレクションに追加します。
(setq acadObj (vlax-get-acad-object)
doc (vla-get-ActiveDocument acadObj)
layerCollection (vla-get-Layers doc))
(vla-Add layerCollection "MyNewLayer")
Dim newLayer as AcadLayer
Set newLayer = ThisDrawing.Layers.Add("MyNewLayer")