IconTray

Private Sub picTray_MouseMove(...)
Static rec As Boolean, msg As Long
msg = X / Screen.TwipsPerPixelX
If rec = False Then
rec = True
Select Case msg
Case WM_LBUTTONDBLCLK:
MsgBox "Hai fatto doppio click."
Case WM_LBUTTONDOWN:
...
Case WM_LBUTTONUP:
...
Case WM_RBUTTONDBLCLK:
...
Case WM_RBUTTONDOWN:
...
Case WM_RBUTTONUP:
...
End Select
rec = False
End If
End Sub

'ATTENZIONE: caricate e scaricate sempre l'icona dalla

'system tray al momento giusto (Form_Load e Form_Unload)!!!