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