DefInt A-Z
Declare Function Shell_NotifyIconA Lib "Shell32" (ByVal dwMessage as Long, _
  lpData as NOTIFYCONDATA) as Long
Type NOTIFYCONDATA
  cbSize as Long
  hwnd as Long
  uID as Long
  uFlags as Long
  uCallbackMessage as Long
  hIcon as Long
  szTip as String * 64
End Type
'Konstanten
Global Const NIM_ADD = &H0&
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE  = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200
Global NI as NOTIFYCONDATA

NI.cbSize = Len(NI)
NI.hWnd = Picture1.hwnd
NI.uID = 0
NI.Flags = NIF_MESSAGE or NIF_ICON or NIF_TIP
NI.uCallbackMessage = WM_MOUSEMOVE
NI.hIcon = Picture1.DragIcon
NI.szTip = "Mein Notify Tool-Tip" & Chr$(0)
' Das NotifyIcon muß eine eindeutige ID besitzen, deshalb folgende Schleife 
' durchlaufen, bis kein Fehler mehr auftritt
Do
  NI.uID = NI.uID + 1
  result  = Shell_NotifyIconA (NIM_ADD, NI)
Loop While Result = 0

' Die Messages übergibt die Notification Area in dem Parameter x
  Dim Msg as Long
  Msg = (X and &HFF) * &H100
  Select Case Msg
    Case 0
    ' Code für Mausbewegung
    Case &HF00
     ' Code für linke Maustaste gedrückt
    Case &H1E00
     ' Code für linke Maustaste loslassen
    Case &H2D00
     ' Code für Doppelclick links
    Case &H3C00
     ' Code für rechte Maustaste gedrückt
    Case &H4B00
     ' Code für rechte Maustaste loslassen
    Case &H5A00
     ' Code für Doppelclick rechts
End Select

  NI.hIcon = Picture2.DragIcon
  NI.szTip = "Anderer Tool-Tip" & Chr$(0)
  result  = Shell_NotifyIconA (NIM_MODIFY, NI)

  result  = Shell_NotifyIconA (NIM_DELETE, NI)