Dim i As Integer

"i = Val(Text2.Text)

For i = 1 To Val(Text2.Text)

Form3.Picture1.Circle (120, 260), i * 10, vbRed

Next

"Form3.Picture1.Circle (60, 60), 40, vbRed "畫一個圓心(60,60)半徑40的紅色的圓（預設空心）

"

"

"Form3.Picture1.FillStyle = 0 "設定填充模式為實心

"Form3.Picture1.FillColor = vbBlue "設定填充色藍色

"Form3.Picture1.Circle (190, 60), 40, vbRed "下來畫出來的就是填充了實心藍色的圓了

"

"

"Form3.Picture1.DrawWidth = 3 "設定邊框寬度為3

"Form3.Picture1.Circle (60, 190), 40, vbRed "這次繪製出來的圓邊框粗細為3

"

"Form3.Picture1.DrawStyle = 5 "設定邊框不可見

"Form3.Picture1.FillColor = vbRed "設定填充色紅色

"Form3.Picture1.Circle (190, 190), 40 "這次繪製出來一個無邊框、填充顏色是紅色的圓

Form3.Picture1.Refresh

End Sub