vb文字跑马灯

添加一个Picture1
然后在Picture1的 里面 添加一个Label1，就是Label1在Picture1中

上代码。。

Option Explicit

Dim Strs As String, n As Long, m As Long, RL As Long
Dim TW As Long
Const 频率 = 10
Const 速度 = 15

Private Sub Form_Load()
Strs = "我是跑马灯 http://hi.baidu.com/kuangzu "
RL = Lenv(Strs)
Timer1.Interval = 1000 / 频率
Picture1.BackColor = 0
Picture1.Font = Label1.Font
TW = Picture1.TextWidth(" ")
Label1.ForeColor = &HFFFFFF
Label1.Move -TW * 2, 0 'Label1.Move 0, 0, Picture1.ScaleWidth + Picture1.TextWidth(" "), Picture1.ScaleHeight
m = Picture1.ScaleWidth / TW + Lenv(Strs) - Len(Strs) + 1 ', 1, RL)
n = 0
Label1.BackStyle = 0
Label1.AutoSize = True
Timer1_Timer
End Sub
Function Lenv(Strs As String) As Long
Dim a As Long
For a = 1 To Len(Strs)