新问题来了

本帖最后由 bcrun 于 2011-02-25 19:37:33 编辑 提供源码的时候最好把api声明一并弄起来，想解决问题的人就更方便。
本帖最后由 bcrun 于 2011-02-25 19:37:34 编辑 本帖最后由 bcrun 于 2011-02-25 19:37:53 编辑 scalemode = 3

引用 3 楼 patrickkong 的回复:

Option Explicit
Private Type POINTAPI
  X As Long
  Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Li……

+1
和我想到一块儿去了 3楼4楼的答案，我鼠标动那个圆都不动啊 timer1.interval = 1

补充：VB ,  基础类