在线等。关于计算机二级VB，谁帮我看下代码

Dim x As Integer
Private Sub Command1_Click()
x = x + 1
If x Mod 2 = 1 Then
Timer1.Enabled = True
Command1.Caption = "暂停"
Else
Timer1.Enabled = False
Command1.Caption = "演示"
Timer1.Interval = 100
Label1.Left = -Label1.Width
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 150
If Label1.Left >= Me.Width Then
Label1.Left = -Label1.Width
End If
End Sub
为什么运行后label不能立刻移动，第三次才移动呢？

计算机二级 vb 和计算机三级网络技术哪个好考！！？？在线等 计算机二级VB的.frm.和vbp的文件用什么工具打开 在线等 急 计算机二级vb考试 计算机二级VB 计算机二级 Vb 计算机二级VB试题 一道计算机二级VB 关于江苏省计算机VB二级考试机试 c语言二级计算机上机评分标准。。急，在线等 VB全国二级计算机考试