' Deklaration
Dim IC As NOTIFYICONDATA
Private Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
 
      :
      :
'Form_Load
  With IC
   .cbSize = Len(IC)
   .hwnd = picIcon.hwnd 'Nachrichten-Fenster
   .uID = 2& 'unveränderlich
   .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
   .uCallbackMessage = &H200 'Auswertung in MouseMove
   .hIcon = picIcon.Picture 'anzuzeigendes Icon
   .szTip = "MailCheck" + vbNullChar
  End With
  Shell_NotifyIcon NIM_ADD, IC

cu

ari