TripleClick

[Nivel7]

yo no soy de VB pero haria esto:

una variable llamada click_count = 0

evento MouseUP aumentar esta vaiable:
click_count = click_count + 1
si click_count es igual a 1
timer.enable
fin si
si click_count es igual a 3.
click_count = 0
timer.disable
'si es asi entonces significa que es un triple click.
haces lo que tienes que hacer
fin si
fin evento

evento timer()
click_count = 0
timer.disable
fin evento

cada determinado tiempo click_count se reiniciara, y al finalizar el triple click

podrias usar en lugar del timer el metodo de tiempos restados planteado por piojoman.

evento MouseUP
click_count = click_count +1
si click_count = 1
Tiempo = Second(Now)
fin si

si click_count = 2
si Abs(Second(Now) - Tiempo) > 1.3
Tiempo = Second(Now) '''iniciar el nuevo triple click
click_count = 1
fin si
fim si

si click_count = 3
si Abs(Second(Now) - Tiempo) < 1.3
click_count = 0
'hacer lo que tengas que hacer
else
Tiempo = Second(Now) '''iniciar el nuevo tripoe click
click_count = 1
fin si
fin evento


ahi esta no estoy seguro si este correcto la idea es esa.
Saludos.