TripleClick

[jorevale]

Muchas gracias a todos por sus respuestas.

El código planteado por piojoman funciona perfectamente.

El código planteado por Nivel7 también, poniendo en la propiedad interval, del timer: 500. Quedando algo como esto:

Dim click_count As Integer

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
click_count = click_count + 1
If click_count = 1 Then
Timer1.Enabled = True
End If
If click_count = 3 Then
click_count = 0
MsgBox "Hola Mundo"
Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
click_count = 0
Timer1.Enabled = True
End Sub


Muchas gracias a todos

Salu2