Cómo obtener el evento de doble clic del mouse en la programación VB

Función de declaración privada GetDoubleClickTime Lib "user32" () As Long 'Obtener el intervalo de tiempo de doble clic

Función de declaración privada GetAsyncKeyState Lib "user32" (ByVal vKey As Long) Como Entero 'Obtener el estado del mouse

Dim PreviousTime As Double

Dim DBClickTime As Double

Private Sub Form_Load()

DBClickTime = GetDoubleClickTime / 1000

End Sub

Private Sub Timer1_Timer() 'Establece el atributo de intervalo del temporizador en un valor menor. Por ejemplo, 100

Dim IsDBClick As Boolean

If GetAsyncKeyState(1) <> 0 Entonces '1 es la tecla izquierda, 2 es la tecla derecha y 4 es la tecla central

Si Temporizador - Hora Anterior <.DBClickTime Entonces IsDBClick = Verdadero

Hora Anterior = Temporizador

Fin Si

Si IsDBClick = Verdadero Entonces

'Escribe aquí el código que se ejecutará cuando se detecte un doble clic

End If

End Sub