在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,就可以演示了)