Private Sub Command1_Click()
Form1.Scale (-50, 50)-(50, -50)
Line (-50, 0)-(50, 0)
Line (0, 50)-(0, -50)
Const PI = 3.14159
Dim r, x, y, x0, y0
r = 18
y0 = 0
x0 = 0
n = Val(Text1)
st = PI / n
For i = 0 To 2 * PI Step st
 x = r * Cos(i) + x0
 y = r * Sin(i) + y0
 Circle (x, y), r * 0.9
Next i
End Sub
请帮忙看看所画圆的圆心轨迹为什么不是圆的？

动起来了吗？快的看不清吧？

不圆的原因在于你的显示器和系统。

我们的显示器上的像素与你使用坐标的长宽比并不相同的。就像视频的 长宽比有 1.25：1  ，1.5：1 一样的。这个长宽比就要是 你进行校正的。

而你使用系统命令画的圆，系统会自动校正。

不圆的原因在于Form1.Scale (-50, 50)-(50, -50)
如果form的长宽比不是1:1。以上命令执行后，就不能按比例作图。

如何得到1:1的正方形窗体？除去标题栏及边框后的
Form1.ScaleWidth=Form1.ScaleHeight 还是 Form1.Width=Form1.Height？？？