"首先看你的文字框裡能顯示多少個字元，然後記錄下這個資料

"我的文字框可以顯示32個字元

"需要進行移動的字串，比如"123hello@?"

"下面開始進行字元移動

Private Sub Command1_Click()

s = "123hello@?"

Text1。

Text = ""

Text1。Text = s + Space(32 - Len(s))

"Timer1。Enabled = True

Timer1。Interval = 500 "文字移動速度500ms

End Sub

"--------以下這段程式碼為測試文字框顯示長度，程式設計不需要-----------

Private Sub Command2_Click()

For i = 1 To 100

Text1。

Text = Text1。Text & i Mod 10

Next

"執行完看前面出現過幾次零，然後加上最後一個可以看見的數字即為文字框顯示字元數

End Sub

"--------以上這段程式碼為測試文字框顯示長度，程式設計不需要-----------

Private Sub Timer1_Timer()

"Text1。

Text = Right(Text1。Text, Len(Text1。Text) - 1) + Left(Text1。Text, 1) "向左移動

Text1。Text = Right(Text1。Text, 1) + Left(Text1。

Text, Len(Text1。Text) - 1) "向右移動

End Sub。