Foros del Web - Ver Mensaje Individual

erbuson · #2 (**permalink**) 03/03/2010, 14:45

Hola, primero debes montar como mejor te convenga el diseño del formulario, y si quieres utilizar este código que te dejo, debes tener por lo menos

1 Command1 con el Caption = Arrancar
1 Command2 con el Caption = Parar
1 Text1
1 Timer1 (Nunca se verá en tiempo de ejecución) en Interval pones 10000 (10 seg)

con este código tienes mas o menos la idea.

Código:

Private Sub Command1_Click()
  Timer1.Enabled = True
  Text1 = ""
End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
  Text1 = 50 + Val(Text1)
End Sub

Cualquier duda comenta y aclaramos.

Saludos