HistoryLines property example

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