Private Sub Form1_Shown(sender As Object, _
            e As System.EventArgs) _
            Handles Me.Shown
        Me.Visible = False
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(sender As System.Object, _
            e As System.EventArgs) _
            Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub
 
    Private Sub NotifyIcon1_MouseClick(sender As Object, _
            e As System.Windows.Forms.MouseEventArgs) _
            Handles NotifyIcon1.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Left Then Me.Visible = Not _
          Me.Visible
 
    End Sub