This is the code im using for my system tray icon (got from the forum a few days ago)

Code:
Private Const NIM_ADD = &H0             
Private Const NIM_MODIFY = &H1          
Private Const NIM_DELETE = &H2          

Private Const NIF_MESSAGE = &H1         
Private Const NIF_ICON = &H2            
Private Const NIF_TIP = &H4             

Private Const WM_MOUSEMOVE = &H200      

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

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

Dim mtIconData          As NOTIFYICONDATA
Dim mnLight             As Integer

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Static bBusy As Boolean
    If bBusy = False Then
        bBusy = True
        
        Select Case CLng(X)
            Case WM_NCLBUTTONDBLCLK   
                frmBrowse.WindowState = vbMaximized
                frmBrowse.Visible = True           
            Case WM_LBUTTONDOWN     
                If Shell_NotifyIcon(NIM_MODIFY, mtIconData) = 0 Then
                    MsgBox "Unable to change icon in system tray!"
                End If
            Case WM_LBUTTONUP       
            Case WM_RBUTTONDBLCLK   
            Case WM_RBUTTONDOWN     
        End Select
        bBusy = False
    End If
    
End Sub
The icon appears in the system tray fine but none of the click events work at all.

can anyone help?