vb中实时错误，找不到DLL入口点，望好人回答，没分了，只能从精神上感谢。。。

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 Type

Private Sub 检数位置_Click()
Private 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
Private Sub 设数位置_Click()
Private Sub command2_click()
If IsNumeric(Text1) And IsNumeric(text2) Then
i = setcursorpos(Text1.text2)
End If
End Sub
要VB能编译通过的啊，本人操作系统为WINXP2。

vb中实时错误，找不到DLL入口点，望好人回答，没分了，只能从精神上感谢。。。 vb中实时错误的问题 vb中 实时错误 对象名无效 vb 实时错误91 VB实时错误‘91’ VB实时错误‘3705’ VB实时错误‘380’ VB 实时错误 424 vb 实时错误5 vb实时错误3705