Mantener un botón pulsado.

hola, César !

Quiero asignar una accion a un boton (hasta aqui no hay problema)
y quiero que, mientras el boton se mantenga pulsado, la accion se vaya repitiendo...

prueba con algo +/- como lo siguiente:
-> en el modulo de codigo del objeto donde se encuentre incrustado tu boton
[y asumiendo que se llama Button1] :))

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Long
Private Sub CommandButton1_MouseDown( _
ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
DoEvents
Do While GetAsyncKeyState(&H1)
[a1] = [a1] + 1
Loop
MsgBox "Boton liberado ..."
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.