做個範例,你自己依照需求修改吧
Sub Form_Load()
Me.TimerInterval = 500
End Sub
Function 跑馬燈(輸入文字 As String, 捲動次數 As Integer) As String
跑馬燈 = Mid(輸入文字 & 輸入文字 & 輸入文字, Len(輸入文字) - (捲動次數 Mod Len(輸入文字)) + 1, Len(輸入文字))
End Function
Private Sub Form_Timer()
Me.Label1.Caption = 跑馬燈(Me.Label1.Caption, -1)
End Sub