Private Sub Command1_Click()
Form1.Circle (100, 2000), 480,HFF8080)
Form1.Circle (200, 1000), 480,RGB(255, 0, 255)
For i = 450 To 480
Form1.Circle (2000, 2000), i, (&HFF8080)
Form1.Circle (1000, 1000), i, RGB(255, 0, 255)
Next
End Sub
(2000,2000)和(1000,1000)是坐标,
i 是半径,
(&HFF8080)和RGB(255, 0, 255)是颜色的表达