Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Type POINTAPI x As Long y As LongEnd TypeDim p As POINTAPIGetCursorPos pMe.Caption = "鼠标坐标:" & p.x & "," & p.y