Dim IFor I = 1 To 500 label1.caption = I DoEventsNext I
Do While 1 label1.caption = Now() DoEvents Sleep(1000)Loop
Inicio:'Lo que queres que haga el bucleGoTo Inicio