how to add a new layer in autocad with vb?

[roust]

I want to add a new layer in autocad, use code below,

set newlayer=AcadObj.ActiveDocument.Modelspace.layers.Add("Center")

but it cant be work. why? how to do it?

 

[Hmo]

set Newlayer = activedrawing.layers.add("Center")

 

[roust]

Thank you.
it should be:
set newlayer=AcadObj.ActiveDocument.layers.Add("Center")