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