Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize

        If Me.WindowState = System.Windows.Forms.FormWindowState.Minimized Then

            Me.ShowInTaskbar = False
            Me.NotifyIcon1.Visible = True

        End If

End Sub

Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick

        Me.WindowState = System.Windows.Forms.FormWindowState.Normal
        Me.ShowInTaskbar = True
        Me.NotifyIcon1.Visible = False

End Sub