关于找不到DLL入口点的问题。

Question

我的代码如下
Private Declare Function getcursorpos Lib "user32" (lppoint As pointapi) As Long
Private Declare Function setcursorpos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Type pointapi
   X As Long
   Y As Long
End TypePrivate Sub Command1_Click()
If IsNumeric(Text1) And IsNumeric(Text2) Then
i = setcursorpos(Text1, Text2)
End If
End SubPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim rc As Long
Dim lppoint As pointapi
rc = getcursorpos(lppoint)
End Sub
调试时弹出错误窗口说找不到DLL入口点 getcursorpos in user32
这个应该怎么修改法？？请高手指点

Answer 1

声明问题，注意大小写
Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long