Foro de elhacker.net

Hola, gente como no dándoles la lata.En este caso no se como hacer una cuenta progresiva (Cuando Presione el Button aumente en 1), he visto en internet que lo hacen con un timer pero como dije quiero que aumente en 1 al pulsar el botón.

Un Gran Saludo y gracias de antemano

Si te refieres a que el Caption del boton aumente en 1 cada vez que le haces click, prueba lo siguiente:

Private Sub Command1_Click()
    Command1.Caption = Cstr(Val(Command1.caption) + 1)
End Sub
 

Por supuesto, el caption del boton debería ser 0 o cualquier otro valor numerico.

El Cstr no es necesario 100% (sin él funciona igual) pero, bueno, es para darte una  idea...

Saludos!

Mil gracias MCKSys funciona 100%

Un Saludo