Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        Dim f As Form
        f = sender

        If f.WindowState = FormWindowState.Minimized Then
            Me.Visible = False
        End If
    End Sub