'// Minimieren
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button15.Click
        Me.WindowState = FormWindowState.Minimized
        Me.NotifyIcon1.Visible = True
        Me.ShowInTaskbar = False
        Me.ResizeRedraw = True
End Sub

'// Click auf NotifyIcon
Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles NotifyIcon1.DoubleClick
        Me.WindowState = FormWindowState.Normal
        Me.Show()
        Me.NotifyIcon1.Visible = False
        Me.ShowInTaskbar = False
End Sub