两个点，pset (100, 200)，让它显示在窗体左上角
pset (200, 100)，让它显示在窗体右下角，
Form1.Scale怎么写？

form1.scalemode设为像素
Private Sub Form_Load()
Form1.Scale (100, 200)-(200, 100)
'Form1.PSet (100, 200), vbRed
'Form1.PSet (200, 100), vbRed
Form1.Circle (100, 200), 10
Form1.Circle (200, 100), 20
End Sub

看看我的有问题吗？
Private Sub Form_Click()
DrawWidth = 20
'PSet (3210, 2911)
PSet (3210, 2941)
PSet (3380, 2911), vbRed
'PSet (3380, 2941)
End Sub

Private Sub Form_Load()
Form1.Scale (3210, 2941)-(3380, 2911)
End Sub

可以
再加下显示当前鼠标指针位置，就一目了然
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Caption = X & "," & Y
End Sub

可是运行起来不对啊

好像是哪里单位不对

autoredraw设为true就这样

还是不行，奇怪

把工程传上来看看，可能是窗体属性问题