请教如何能使时间停止后，所产生的数据没用相同的，谢谢！！！

请教如何能使时间停止后，所产生的数据没用相同的，谢谢！！！
Private Sub Timer1_Timer()
Dim sj1, sj2, ys, ys1, ys2, y3, y4 As Integer
If commandd2 = True Then
Randomize (Time + 1) '初始化随机数
sj1 = Fix(Rnd * 33 + 1)
Text1(0).Text = sj1
Randomize (Time + 2) '初始化随机数
sj2 = Fix(Rnd * 33 + 1)
Text1(1).Text = sj2

Randomize (Time + 3) '初始化随机数
ys = Fix(Rnd * 33 + 1)
Text1(2).Text = ys

Randomize (Time + 4) '初始化随机数
ys1 = Fix(Rnd * 33 + 1)
Text1(3).Text = ys1

Randomize (Time + 5) '初始化随机数
ys2 = Fix(Rnd * 33 + 1)
Text1(4).Text = ys2

Randomize (Time + 6) '初始化随机数
y3 = Fix(Rnd * 33 + 1)
Text1(5).Text = y3

Randomize (Time + 7) '初始化随机数
y4 = Fix(Rnd * 16 + 1)
Text1(6).Text = y4

End If

End Sub