Code:
Do Until Text1.Top = 3000
DoEvents
Text1.Top = Text1.Top + 1
Loop
This code will make the textbox move down. A subtraction symbol (-) will make it go up.
Set the top to anything.