Public Class NewClass
Public ReadOnly ThisDrawing As AcadDocument=Ctype(Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication,AcadApplication).ActiveDocument
<CommandMethod ("AddLine")>Public Sub Mycmd()
ThisDrawing.Utility.Prompt("Hello World")
End Sub
End Class