Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long  '声明API
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)  '鼠标移动事件
	SetCursor 65581   '65581可更变
End Sub