VB中滚动字幕如何实现?高手帮帮忙!

来源：百度知道 编辑：UC知道 时间：2024/05/16 13:50:35
最好有详细些的代码,谢谢啦!感激不尽!
滚动字幕怎么循环出现啊???

Private Sub Timer1_Timer()
Label1.Caption = str1
Dim i As Integer, j As String
If str1 = "" Then
Timer1.Enabled = False
Else

i = Val(Len(str1)) - 1
j = Right$(str1, (i - 1))
str1 = j
End If

End Sub
str1 = "军中绿花寒风飘飘落叶军队是一朵绿花亲爱的战友你不要想家不要想妈妈声声我日夜呼唤多少句心里话不要离别时两眼泪花"
Label1.Caption = str1
Label1.Left = 400