Originariamente inviato da oregon
Probabilmente il problema e' determinato dalla mancanza della DoEvents ...

Non ho chiara la situazione dei tuoi form ma un esempio con Form1 e Form2 puo' essere

codice:
    Dim i As Long
    
    Form2.Show
    Form2.Text1.Text = ""
    For i = 1 To Len(Form1.Text1.Text)
        Form2.Text1.Text = Form2.Text1.Text & Mid(Form1.Text1.Text, i, 1)
        DoEvents
        Sleep 500
    Next i
Forte č proprio cosi, grazie......