加入一個時間控制元件：timer1.

加入一個橫向的捲軸：hscroll1.把：min屬性設為2，max屬性設為100，smallchange設為1。

下面程式碼：

privatesubcommand1_click()

timer1.enabled=true

timer1.interval=10

endsub

privatesubform_load()

command1.caption="開始"

text1.backcolor=&h8000000f

text1.borderstyle=0

text1.text="測試區域"

timer1.enabled=false

endsub

privatesubhscroll1_change()

timer1.interval=10*hscroll1.value/10

endsub

privatesubhscroll1_scroll()

timer1.interval=10*hscroll1.value/10

endsub

privatesubtimer1_timer()

text1.left=text1.left-50

iftext1.left<0then

text1.left=form1.width

endif

endsub

技術含量不高，供參考！