Sub AppWindowCaption() AppWindow.Caption = "My PAINT Application"End Sub
Sub ResetCaption() Dim NewCaption As String NewCaption = "Corel PHOTO-PAINT" If AppWindow.Caption <> NewCaption Then AppWindow.Caption = NewCaption End IfEnd Sub