Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" ( _
  ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
 
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONUP = &H205
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIF_MESSAGE = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
 
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 TrayIcon As NOTIFYICONDATA
 
Public Function initTray(frmForm As Object, pctImage As IPictureDisp, _
  strTooltip As String)
    TrayIcon.cbSize = Len(TrayIcon)
    TrayIcon.hWnd = frmForm.hWnd
    TrayIcon.uId = vbNull
    TrayIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    TrayIcon.ucallbackMessage = WM_MOUSEMOVE
    TrayIcon.hIcon = pctImage
    TrayIcon.szTip = strTooltip & Chr$(0)
 
    'NIM_ADD is a Constant - add icon to tray
    Call Shell_NotifyIcon(NIM_ADD, TrayIcon)
End Function
 
Function msMove(frmForm As Object, curX As Single)
Static Message As Long
Static RR As Boolean
    Message = curX / Screen.TwipsPerPixelX
 
    If RR = False Then
        RR = True
        Select Case Message
            Case WM_LBUTTONDBLCLK
                MsgBox "Doppelklick"
 
            Case WM_RBUTTONUP
                MsgBox "Rechtsklick"
        End Select
        RR = False
    End If
End Function
 
Function removeTray(frmForm As Object)
    TrayIcon.cbSize = Len(TrayIcon)
    TrayIcon.hWnd = frmForm.hWnd
    TrayIcon.uId = vbNull
    'Remove icon for Tray
    Call Shell_NotifyIcon(NIM_DELETE, TrayIcon)
End Function

Cu David
--------------------------------------------
ist eine geniale Erfindung

Q-lympics ist geil