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 If End Sub