语法:object.Circle [Step] (x, y), radius, [color, start, end, aspect]Private Sub Command1_Click()Picture1.Scale (-1500, 1500)-(1500, -1500)pi = 3.1415926Picture1.Circle (0, 0), 1000, vbRed, pi / 2, 0End Sub
