Private Sub ShowIconInTray()
  With IC
   .cbSize = Len(IC)
   .hwnd = Picture1.hwnd 'Nachrichten-Fenster
   .uID = 2& 'unveränderlich
   .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
   .uCallbackMessage = &H200 'Auswertung in MouseMove
   .hIcon = Picture1.Picture 'anderes Icon in die Picturebox laden und hier 
   ' wieder zuweisen
   .szTip = "Neuer Tooltip" + vbNullChar 'geänderten Tooltip zuweisen
  End With
  Shell_NotifyIcon NIM_MODIFY, IC
End Sub