AltFontFile property example

Private Sub AltFontFile_Example()

     Dim myobj As ApplicationPreferences

     Dim myfontfile As String

     Set myobj = IntelliCAD.Preferences

     myfontfile = myobj.AltFontFile

     MsgBox "The alternate font file is: " & myfontfile

End Sub