Private Sub NotifyIcon_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles NotifyIcon.MouseDown
        If Windows.Forms.MouseButtons.Left Then
            FensAnim(Me, FensAnimArt.EINBLENDEN, FensAnimEffekt.SCHIEBEN, _
              FensAnimRichtung.NO, 350)
            Me.ShowInTaskbar = True
            Me.NotifyIcon.Visible = False
        End If
        If Windows.Forms.MouseButtons.Right Then
            Me.ContextMenuStrip1.Show()
        End If

Wer Rechtschreibfehler findet darf Sie behalten