vb编程求过程

Private Sub Command1_Click()
   Timer1.Interval = 200
End Sub

Private Sub Command2_Click()
  Timer1.Interval = 0
End Sub

Private Sub Form_Load()
   Label1.FontSize = 18
   Label1.Caption = "颜色变化"
   Label1.FontBold = True
End Sub

Private Sub Timer1_Timer()
  Static k, i
  If i = 0 Then k = 500: i = 1
  Label1.Left = Label1.Left + k
  If Label1.Left > Form1.Width - Label1.Width Then
    k = -500
    Label1.Left = Form1.Width - Label1.Width
  Else
    If Label1.Left < 0 Then
      Label1.Left = 0
      k = 500
    End If
  End If
  Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub