为何产生不了随机数,该怎么处理

为何产生不了随机数
我想利用timer事件每隔一秒产生三个随机数,给一个圆的背景色赋值
可是不行啊
请问原因在哪里啊


Private   Sub   Form_Load()
Timer1.Interval   =   1000
Timer1.Enabled   =   True
Shape1.Shape   =   3
Shape1.FillColor   =   RGB(r,   g,   b)
Label1.Caption   =   Str$(r)   &   ", "   &   Str$(g)   &   ", "   &   Str$(b)
End   Sub

Private   Sub   Timer1_Timer()
r   =   Int((255   *   Rnd)   +   0)
g   =   Int((255   *   Rnd)   +   0)
b   =   Int((255   *   Rnd)   +   0)
End   Sub

[解决办法]
完整代码 好的习惯也是变成的关键
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Shape1.Shape = 3
End Sub

Private Sub Timer1_Timer()
dim r as long,g as long,b as long
randomize
r = Int((255 * Rnd) + 0)
randomize
g = Int((255 * Rnd) + 0)
randomize
b = Int((255 * Rnd) + 0)
Shape1.FillColor = RGB(r, g, b)
Label1.Caption = Str$(r) & ", " & Str$(g) & ", " & Str$(b)
End Sub