Randomize 是VB初始化随机数函数 rand的函数
在Form 的load事件中调用一次就可以了
然后用rand生成随机数
比如：
Private Sub Form_Load()

Randomize

DrawWidth = 2

End Sub
Private Function MyPrint(rx As Integer)

x = Form1.Width / 2
y = Form1.Height / 2

r = Form1.Height / 2
Circle (x, y), rx, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

End Function
Private Sub Timer1_Timer()
r1 = Rnd * r
MyPrint (r1)
End Sub
（要绘图把form的AutoRedraw设置为true，就可以演示了）