下面的程序运行的时候为什么会出现＂找不到ＤＬＬ入口点 showcursor in user 32＂的错误呢？？红色的那句．
Private Declare Function showcursor Lib "user32" (ByVal bshow As Long) As Long
Private Sub Form_click()
X = showcursor(True)
End
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
X = showcursor(True)
End
End Sub
Private Sub Form_Load()
Dim X As Long
X = showcursor(False)
Label1.Left = 0
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static currentx, currenty As Single
Dim orignx, origny As Single
orignx = X
ortgny = Y
If currentx = 0 And currenty = 0 Then
currentx = orignx
currenty = origny
Exit Sub
End If
If Abs(orignx - currentx) > 20 Or Abs(origny - currenty) > 20 Then
X = showcursor(True)
End
End If
End Sub
Private Sub Label1_Click()
X = showcursor(True)
End
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static curx, cury As Single
Dim orx, ory As Single
orx = X
ortgny = Y
If curx = 0 And cury = 0 Then
curx = orx
cury = ory
Exit Sub
End If
If Abs(orx - curx) > 20 Or Abs(ory - cury) > 20 Then
X = showcursor(True)
End
End If
End Sub
Private Sub Timer1_Timer()
Static xx, yy As Single
Static ii As Integer
Timer1.Interval = 1000
Form1.Refresh
Label1.Left = xx
Label1.Top = yy + 500
If xx > Form1.ScaleWidth Then
xx = 0
Label1.ForeColor = RGB(255 - ii, ii, 255 - ii)
yy = yy + 500
End If
If (yy + 500 + Label1.Height) > Form1.ScaleHeight Then yy = 0
ii = (ii + 50) Mod 255
xx = xx + 50
End Sub
