' Symbol in der Taskleiste
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 nid As NOTIFYICONDATA

    ' Symbol der Anwendung zum SysTray hinzufügen
         With nid
            .cbSize = Len(nid)
            .hwnd = Me.hwnd 'an welches Fenster sollen die Nachrichten?
            .uId = vbNull 'unveränderlich
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallBackMessage = WM_MOUSEMOVE '= MouseMove
            .hIcon = Me.Icon 'hier bekommen wir das Bild/Icon her
            .szTip = "Web4Free Communtity" + vbNullChar
        End With
        ' Anwendung jetzt "verstecken"
        Shell_NotifyIcon NIM_ADD, nid
        Me.Hide

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    On Error Resume Next
    ' Mausbefehle werden an die Tray weitergeleitet
    ' Das MouseMove Ereignis wird ausgelöst, wenn die
    ' Maus über das Symbol im Systray geführt wird
 
    Dim lMsg As Long
    Dim sFilter As String
 
    lMsg = x / Screen.TwipsPerPixelX
    Select Case lMsg
        Case WM_LBUTTONDOWN
            ' linke Maustaste wird gedrückt
 
        Case WM_LBUTTONUP
            ' linke Maustaste wird losgelassen
 
        Case WM_LBUTTONDBLCLK
            ' linke Maustaste - Doppelklick
            ' Wiederherstellen
            Shell_NotifyIcon NIM_DELETE, nid
            WindowState = vbNormal
            Me.Show
            DoEvents
 
        Case WM_RBUTTONDOWN
            ' rechte Maustaste wird gedrückt
            SetForegroundWindow Me.hwnd
            PopupMenu systraymenue
 
        'Case WM_RBUTTONUP
            ' rechte Maustaste wird losgelassen
 
        Case WM_RBUTTONDBLCLK
            ' rechte Maustaste - Doppeklick
    End Select
End Sub

Private Sub Symbolleiste_ButtonClick(ByVal Button As MSComctlLib.Button)
...lauter Case Gschichten die OK sind
End Sub

lG. aus Wien
Werner
http://www.web4free.at

Die Zukunft der Community beginnt hier