Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then MsgBox "hola"
End Sub
Esto es lo que no me funciona, aunque agradezco la ayuda
xkiz... Es lo que queria poner en principio, pero me confundi...
Lo que queria poner es esto:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim x As Integer
If Button = vbRightButton Then x = x + 1
End Sub
Haber si me explico mejor:
Tengo un Timer con un intervalo de 500.
Si mantengo presionado el btn derecho del ratón en cualquier ventana se activa el Timer y cada 500 ms suma 1 a x, en el momento que deje de presionar el btn derecho del raton, se desactiva el Timer.Creo que ahora me explique bastante bien, y como ya he dicho no tiene por que ser muy complejo de hacer, no??
Muchas gracias a todos por la ayuda!!
Mostrar Mensajes
