Private Sub Header_Example()
' This example sets and returns the Header property.
Dim myHeader As String
myHeader = InputBox("Type header text here:")
IntelliCAD.PlotManager.Header = myHeader
MsgBox "The Header property is: " & IntelliCAD.PlotManager.Header
End Sub