scusa mi e' partito invio

in un Form inserissci un menu (ctrl+ e) (menu) visibilita false
e una voce si sotto menu (pop1) che vuoi visualizzare sul'icona della tray


codice:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoEvents
Msg = Button
'Debug.Print str(Msg)
Msg = X / Screen.TwipsPerPixelX
Select Case Msg
    Case WM_LBUTTONDBLCLK
    Menu pop1 
    Case WM_RBUTTONUP
       Case WM_RBUTTONDBLCLK
    Menu pop1
End Select
End Sub


Private Sub Form_Terminate()
Shell_NotifyIcon NIM_DELETE, leo
End Sub


Private Sub popmenu1_Click()
'azioni che vuoi fare al click sulla voce di menu sull'icona
End Sub
Ciao