Dim typPt As POINTAPI
GetCursorPos typPt

无效的外部过程是什么意思？

百思不解，请高手指教！

敬礼

Declare Function GetCursorPos Lib "user32" (lpPoint As _
POINTAPI) As Long

Private Type POINTAPI
    x As Long
    y As Long
 End Type

Dim typPt As POINTAPI
GetCursorPos typPt

Declare Function ScreenToClient Lib "user32" _
(ByVal hwnd As Long, lpPoint As _
POINTAPI) As Long

不晓得你在写什么。没弄懂VB语法的时候不要玩API