VB怎么用时钟使窗口文字随机变色

Private Sub Command1_Click()
Cls
For i = 1 To 9
For j = 1 To i
Print Tab((j - 1) * 10);
Print j & "x" & i & "=" & i * j;
Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next j
Print
Next i
End Sub
Private Sub Timer1_Timer()
Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub以上是我的代码。颜色是彩色的 但是不会随机变色。求高人看看那里出错了。

Private Sub Command1_Click()
Cls
Command1.Caption = IIf(Command1.Caption = "开始", "暂停", "开始")
If Command1.Caption = "暂停" Then
Timer1.Enabled = True
Timer1.Interval = 200
ElseIf Command1.Caption = "开始" Then
Timer1.Interval = 0
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Timer1.Interval = 200
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Cls
a = a - 100
If a + TextWidth(s) < 0 Then a = Me.ScaleWidth
CurrentX = a
CurrentY = 500
Me.ForeColor = QBColor(Int(Rnd * 15))
Print s
End Sub
你要的重点就在 TIMER1 事件里