Ciao!

Se tengo premuto il tasto dx del mouse e poi il clicco col sx (quindi con il dx ancora premuto) vorrei che mi apparisse una msgbox.
Ho provato così:

Dim risposta As String

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
risposta = ""

If Button = 1 Then
risposta = "sx"
ElseIf Button = 2 Then
risposta = "dx"
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
risposta = risposta & "sx"
ElseIf Button = 2 Then
risposta = risposta & "dx"
End If

MsgBox "Ecco la sequenza: " & risposta
End Sub

ma non funge, come dovrei fare?

Grazie!