Bucle****

[franco55]

AMIGOS necesito q una de estas variable me ponga 1 en el textbox, y q vaya sumando cada vez q carge el formload el formulario(q entre al form)...como esta puesto un top ai me tira 100....noce como parar el bucle para q qede en 1 y la proxima sea 2......me ayudan si no es con el while el for next o algun otra sentencia

Dim cantt As Integer

'........................BUCLE.................... ...
'Dim top As Integer, s As Integer
'cantt = 1
's = cantt
'top = 100
'Do While Not cantt >= top
'Text4.Text = cantt
----------INICIO-----------PROCESO-----------FIN-----------------

'..................BUCLE.......................... ..
'If cantt <= top Then
'cantt = cantt + 1
's = cantt
'End If
'Loop
..........OTRA FORMA...................
For cantt = 1 To 100
Text4.Text = cantt
'Next cantt