Sub AppWindowCaption() AppWindow.Caption = "My Draw Application"End Sub
Sub ResetCaption() Dim NewCaption As String NewCaption = "My New Caption" If AppWindow.Caption <> NewCaption Then AppWindow.Caption = NewCaption End IfEnd Sub