VB中画弧线。

Sub Form_Click ()
Dim CX, CY, Radius, Limit ' Declare variable.
ScaleMode = 3 ' 以像素为单位。
CX = ScaleWidth / 2 ' X 位置。
CY = ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Circle (CX, CY), Radius,RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
End Sub

Private Sub Form_Click()
Circle (X, Y), R,颜色值,起始角度,终点角度,
End Sub
列如:Private Sub Form_Click()
Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleHeight / 2, RGB(Rnd * 255, Rnd * 255, Rnd * 255), 0, 3.14
End Sub