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
 
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _
  "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As _
  Long
 
Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
 
Dim IC As NOTIFYICONDATA
 
 
Private Sub Command1_Click()
 With IC
  .cbSize = Len(IC)
  .hwnd = Picture1.hwnd 'an welches Fenster sollen die Nachrichten?
  .uID = 2& 'unveränderlich
  .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
  .uCallbackMessage = &H200 '= MouseMove
  .hIcon = Picture1.Picture 'hier bekommen wir das Bild/Icon her
  .szTip = "Das ist der Tooltip :-)" + vbNullChar
 End With
 
Shell_NotifyIcon NIM_ADD, IC
 
End Sub
 
 
Private Sub menuExit_Click()
End
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
Select Case Hex(X)
 Case "1E3C"
   PopupMenu menuDatei
End Select
End Sub