Bucle****

[franco55]

Dim cantt As Integer

'Dim top As Integer, s As Integer
'cantt = 1
's = cantt
'top = 100
'Do While Not cantt >= top
'Text4.Text = cantt
'If cantt <= top Then
'cantt = cantt + 1
's = cantt
'End If
'Loop
--------------------------asi es perdon la mala exprecion, lo unico q quiero es q en un textbox aparesca el n° 1 ami me aparece el 100.....quiero q el ciclo pare y ponga el 1 en el text.....o si hay otra forma de hacerlo