making text scroll

i have 2 text boxes(text1 and text2). i am tring to figure out how to do this:

when you hit "ok" the text in text1 scrolls.

-example-
text1.text="text"

'when you hit ok it should do this:

text
ext
xt
t


can you help me? if you can then thank you

emptywords

Code:

---

do
  text1.text = mid$(text1.text, 2)
loop until len(text1.text) = 1
text1.text = ""

---

this will happen very quick so you might want to built in some delay

I really don't know why you mentioned the text2 textbox. As for your example this should make it:

do until text1.text=""
text1.text=mid(text1.text,2)
loop

You should insert a dealy in the loop to make the text go slower

Kedaman, what a coincidence... same idea posted at the same time!