先定义一个类型

Private Type POINTAPI
        x As Long
        y As Long
End Type

声明一个api函数GetCursorPos
Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

声明一个变量 Dim mouse as POINTAPI

获取鼠标在屏幕中的坐标：  GetCursorPos mouse

得出横坐标 Val(mouse.X)*15-Me.Left-50
得出纵坐标 Val(mouse.Y)*15-Me.Top-300

[font color=#FF0000]问题：为什么要乘以15 ？  50和300是不是窗口默认的左边框宽度和上边框高度？[/font]