Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Form2.Visible = False
End Sub