Private Sub Command1_Click()
For i = 800 To 1000
Circle (3500, 3000), i, RGB(0, 0, 255)  '蓝色
Circle (5000, 3000), i, RGB(0, 0, 0)  '黑色
Circle (6500, 3000), i, RGB(255, 0, 0)  '红色
Circle (4000, 4000), i, RGB(255, 255, 0)  '黄色
Circle (6000, 4000), i, RGB(0, 255, 0)  '绿色
Next i
End Sub
Private Sub Command3_Click()
Cls
End Sub
Private Sub Form_Load()
End Sub