Option Explicit
 
Public 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
 
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_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIM_MODIFY = &H1
 
Dim IC As NOTIFYICONDATA
Sub InitTray(I As Integer)
   With IC
      .cbSize = Len(IC)
      .hwnd = frmOptionen.picTrayIcon(I).hwnd 'an welches Fenster sollen die 
      ' Nachrichten?
      .uID = 2& 'unveränderlich
      .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
      .uCallbackMessage = &H200 '= MouseMove
      .hIcon = frmOptionen.picTrayIcon(1).Picture 'hier bekommen wir das 
      ' Bild/Icon her
      .szTip = App.Title + vbNullChar
   End With
 
   Shell_NotifyIcon NIM_ADD, IC
End Sub