Public Function NewBalloon(ByVal Title As String, _
  ByVal Text As String, _
  ByVal sToolTip As String, _
  ByVal Icon As Long, _
  Optional ByVal TimeOut As Long, _
  Optional TrayIcon As Variant)
 
  Shell_NotifyIcon NIM_DELETE, ToolTip
  With ToolTip
    .cbSize = Len(ToolTip)
    .uID = vbNull
    .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
    .uCallbackMessage = WM_LBUTTONDBLCLK
    If Not IsMissing(TrayIcon) Then .hIcon = TrayIcon
    .szTip = sToolTip & vbNullChar
    .dwState = 0
    .dwStateMask = 0
    .szInfo = Text & Chr(0)
    .szInfoTitle = Title & Chr(0)
    .dwInfoFlags = Icon
    .uTimeout = TimeOut
  End With
  Shell_NotifyIcon NIM_ADD, ToolTip
End Function

Public Function NewBalloon(ByVal Title As String, _
  ByVal Text As String, _
  ByVal sToolTip As String, _
  ByVal Icon As Long, _
  Optional ByVal TimeOut As Long, _
  Optional TrayIcon As Variant)
 
  Shell_NotifyIcon NIM_DELETE, ToolTip
  With ToolTip
    .cbSize = Len(ToolTip)
    .hwnd = Picture1.hwnd  [color=darkgreen]'Da fehlte die hwnd Funktion
    .uID = vbNull
    .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
    .uCallbackMessage = WM_LBUTTONDBLCLK
    If Not IsMissing(TrayIcon) Then .hIcon = TrayIcon
    .szTip = sToolTip & vbNullChar
    .dwState = 0
    .dwStateMask = 0
    .szInfo = Text & Chr(0)
    .szInfoTitle = Title & Chr(0)
    .dwInfoFlags = Icon
    .uTimeout = TimeOut
  End With
  Shell_NotifyIcon NIM_ADD, ToolTip
End Function