Footer property example

Private Sub Footer_Example()

' This example sets and returns the Footer property.

     Dim myFooter As String

     myFooter = InputBox("Type footer text here:")

     IntelliCAD.PlotManager.Footer = myFooter

     MsgBox "The Footer property is: " & IntelliCAD.PlotManager.Footer

End Sub