这是代码
Option Explicit
Dim a As Integer, b As Integer
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = Int(X)
b = Int(Y)
If Button = 1 Then Print a; b
End Sub
Private Sub Form_Load()
Scale (0, 0)-(10, 10)
End Sub
问题是有时单击鼠标，屏幕没显示