Header property example

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