Private Sub HandleExample()
Dim myPt As IntelliCAD.Point
Set myPt = Library.CreatePoint(3, 2, 0)
Set myPtEnt = ThisDocument.ModelSpace.AddPointEntity
MsgBox "The handle of this entity is: " & myPtEnt.Handle
End Sub