GetCursorpos的API定义（求教高手）

模块代码（api）
Public Type POINT
    X As Long
    Y As Long
End Type
Public capture As Boolean
Public CursorPosition As POINT
Global Const WM_GETTEXT = &HD
Global Const WM_GETTEXTENGTH = &HE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_SHOWWINDOW = &H40
    Public Declare Function GetCursorpos Lib "user32" (ByRef lpPoint As POINT) As Long
    Public Declare Function WindowFromPoint Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function SendMessagebystring Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long
    Public Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
    
    
Form1代码
Private Sub Check1_click()
If Check1.Value = 1 Then
  SetWindowPos Form1.hwnd, HWND_TOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Else
  SetWindowPos Form1.hwnd, HWND_NOTOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
End SubPrivate Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
capture = True
Me.MousePointer = 99
Me.MouseIcon = Image1.Picture
Text1.Text = ""
End SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If capture = False Then Exit Sub
GetCursorpos CursorPosition
Form1.Caption = CStr(CursorPosition.X) + "--" + CStr(CursorPosition.Y)End SubPrivate Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim TargetLen As Long, TempString As String, hwns As Long
capture = False
Me.MousePointer = 0
GetCursorpos CursorPosition
hwnd = WindowFromPoint(CursorPosition.X, CursorPosition.Y)
TargetLen = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, O)
TempString = String(TargetLen, 0)
SendMessagebystring hwnd, WM_GETTEXT, TargerLen + 1, TempString
Text1.Text = TempString
End Sub
调试时出现“找不到DLL入口点GetCursorpos in user32“