Très bon code, je m'en suis servi comme base pour une application en développée en Qt.

Super !!!!!

je cherchais depuis un petit moment.

Dans mon cad j'ai juste fais ceci :

# private Const DOUBLE_CLICK_GAUCHE = &H203
# private Const BOUTON_GAUCHE_POUSSE = &H201
# private Const BOUTON_GAUCHE_LEVE = &H202
# private Const DOUBLE_CLICK_DROIT = &H206
# private Const BOUTON_DROIT_POUSSE = &H204
# private Const BOUTON_DROIT_LEVE = &H205
# Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
#  

#Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
#Static rec As Boolean, msg As Long

#msg = X / Screen.TwipsPerPixelX
#If rec = False Then
#    rec = True
#    Select Case msg
#        Case DOUBLE_CLICK_GAUCHE:
#            Quit_Click
#        Case BOUTON_DROIT_LEVE:
#            PopupMenu Menu
#    End Select
#    rec = False
#End If

#SetForegroundWindow Me.hwnd

#End Sub

ça marche tout seul .......