Public Type NOTIFYICONDATA
  cbSize As Long
  hwnd As Long
  uID As Long
  uFlags As Long
  uCallbackMessage As Long
  hIcon As Long
  szTip As String * 128
  dwState As Long
  dwStateMask As Long
  szInfo As String * 256
  uTimeoutOrVersion As Long
  szInfoTitle As String * 64
  dwInfoFlags As Long
End Type
 
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" _
  Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, _
  lpData As NOTIFYICONDATA) As Long
 
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_STATE = &H8
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIM_MODIFY = &H1

With TrayIcon
        .cbSize = Len(TrayIcon)
        .hwnd = Me.picTrayIcon.hwnd 'an welches Fenster sollen die Nachrichten?
        .uID = 2& 'unveränderlich
        .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP Or NIF_STATE
        .uCallbackMessage = &H200 '= MouseMove
        .hIcon = Me.picTrayIcon.Picture 'hier bekommen wir das Bild/Icon her
        .szTip = "fdbot v" & Version & vbNullChar
        .szInfo = "Nachricht"
        .szInfoTitle = "Title"
End With
Shell_NotifyIcon NIM_ADD, TrayIcon