VB6文字跑马灯

1Dim TString As String  '声明，在显示的跑马灯字串变数

1Private Sub Form_Load()
2Timer1.Enabled = False '启动打开LED跑马灯
3Timer1.Interval = 200
4Text1.ForeColor = vbRed   '跑马灯红色字体
5Text1.Enabled = True
6End Sub

1Private Sub Timer1_Timer() '加入时钟1
2Static TPos As Long '开始颉取跑马灯字串之位置指标
3If TPos > Len(TString) Then  '如果位置指标越过了整个字串
4TPos = 1 '把位置指标移到最开头
5Else
6TPos = TPos + 1  '把位置指标移到下一个字
7End If
8Text1.Text = Mid(TString, TPos)  '逐字显示跑马灯字串
9End Sub