' This example creates text and then erases it.

     Dim myText As String

     Dim textObj As IntelliCAD.Text

     Dim insPt As IntelliCAD.Point

     Dim height As Double

     Set insPt = Library.CreatePoint(0, 9)

     height = 5

     myText = "Temporary text to be erased"

     ' Add the Text object

     Set textObj = ThisDocument.ModelSpace.AddText(myText, insPt, height)

textObj.Update

ThisDocument.Application.ZoomExtents

     ' Erase the line

     textObj.Erase

End Sub