Private Sub HistoryLines_Example()
'This example determines the HistoryLines property.
Dim myobj As ApplicationPreferences
Dim HistLines As Long
Set myobj = IntelliCAD.Preferences
HistLines = myobj.HistoryLines
MsgBox "The HistoryLines property is: " & HistLines
End Sub