Problema con bucle y timer

[-rommel_]

A ver improvise algo... a ver si tu lo modificas

Código vb:

Public Valor1 as Integer
Public x as integer
 
Private Sub Command1_click()
    Me.Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
   Valor1 = Valor1 +10
   If x = 1 Then
        me.Text1.text = valor1
   elseif x>1 then
        me.Text1.text = me.Text1.text & vbCrlf & valor1
    End If
   
    x = x + 1
    if x  =  15  Then
         me.Timer1.Enabled = False
         me.Text1.text = me.Text1.text & vbCrlf & "Listo se termino la cuenta"
    End If
End Sub
 

a ver si te sirve