' This example creates text and adds it to the drawing using the

      ' AddText method. It then obtains the StyleName property.

     Dim icadDoc As IntelliCAD.Document

     Dim myText As String

     Dim textObj As IntelliCAD.Text

     Dim insPt As IntelliCAD.Point

     Dim height As Double

     Set icadDoc = ActiveDocument

     Set insPt = Library.CreatePoint(0, 9)

     height = 5

     myText = "Test string for the StyleName property"

      ' Add the Text object

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

     textObj.Update

     ThisDocument.Application.ZoomExtents

     MsgBox "StyleName: " & textObj.StyleName

End Sub