Sub ApplicationVisible() Visible = False MsgBox "Corel PHOTO-PAINT is hidden." Visible = True MsgBox "Corel PHOTO-PAINT is now visible."End Sub