Auto Vertical Text Scroll

[Eric]

Hi,

I was wondering if there is a way to automatically make
text scroll vertically so that it looks like rolling
credits from a movie?

Thanks in advance for your help.

Eric

 

[Marshall Barton]

I was wondering if there is a way to automatically make
text scroll vertically so that it looks like rolling
credits from a movie?

That sounds a little hokey, but you can use the Mid function
in a time delayed loop to strip off the front of the string.

I would need to know where the string you want to scroll is
stored and how the lines in it are delimited to be more
specific, but if the string is stored in a variable and each
line is 20 characters, then something like this might get
you started:

For K = 0 to Len(scrollstr) \ 20
Me.sometextbox = Mid(scrollstr, 20 * K)
For D = 1 to 100
DoEvents
Next D
Next K