Private Sub Form_Resize()
If Form1.WindowState = 0 Then Form1.WindowState = 0
If Form1.WindowState = 1 Then Form1.Visible = False
End Sub