The following example demonstrates how to change the value of the Visible property.
Private Sub VisiblePropExample()
Application.Visible = False
MsgBox "Visible property is now false. Click OK to restore."
Application.Visible = True
End
End Sub