Private Sub cmdTBar_Click()
    With sevTray1
        ' normales Symbol
        Set .Icon = imgNormal.Picture
        .IconStyle = sevSingleIcon
        .ToolTip = "Ausgaben Überwachung"
        .ShowInTray
        ' Wenn Minimieren angewählt dann Minimieren
        If chkMinimize.Value <> 0 Then
          FormInTaskbar Me.hwnd, False
          Me.WindowState = vbMinimized
        End If
    End With
End Sub

Private Sub sevTray1_Click(Button As Integer)
  If Button = 2 Then
    ' Rechtsklick -> PopUp-Menü einblenden
    PopupMenu MenuPopUp
  End If
End Sub

Thanks 4 Help Wer Rechtschreibfehler findet darf Sie behalten!!