'你的代码有错,正确的应该是下面这样的才对吧?
'通用里设置变量
Dim i As Integer '申明变量不用说了吧?
Dim j As Integer
Public a
'控制标签移动
Private Sub timer1_timer() '时间控件一
If Label1.Left