...piccoli codici crescono...(sembra il titolo di un film)..
codice:
   Label1.Caption = ""
   a = " 123456789012345678901234567890123456789012345678901234567890"
   Do Until TextWidth(Label1.Caption) >= Label1.Width
      P = P + 1
      Label1.Caption = Label1.Caption + Mid(a, P, 1)
      DoEvents
   Loop
   Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
a è la mia stringa, giusto?
...giusto...


s che cos'è?
..non te lo posso dire, e se te lo dico poi ti devo uccidere....
...il mio nome e' Bond, James Bond....

Infatti per motivi di segretezza, l'ho tolta dalla versione 2.0 della mirabolante funzione.

...certo che ho proprio bisogno di ferie.....

@ dark

..ho detto che sto' diventando, non che lo sono gia'
Meglio pargnosta che para(_|_) (et voila', un rebus per te...)