Private Sub HandleExample()

     Dim myPt As progeCAD.Point

     Set myPt = Library.CreatePoint(3, 2, 0)

     Set myPtEnt = ThisDocument.ModelSpace.AddPointEntity

     MsgBox "The handle of this entity is: " & myPtEnt.Handle

End Sub