Dichiarazioni

codice:
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Gestione del mouse all'evento Form_MouseMove

codice:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim msg As Long

    msg = X / Screen.TwipsPerPixelX
 
    Select Case msg
        Case WM_LBUTTONDOWN
        '    
        Case WM_LBUTTONUP
        '
        Case WM_LBUTTONDBLCLK
        '
        Case WM_RBUTTONDOWN
        '
        Case WM_RBUTTONUP
        ' gestione menu popup su pressione tasto desto
        Case WM_RBUTTONDBLCLK
        '
    End Select
End Sub