Access中如何设定鼠标指针？

问题：
如何设定鼠标指针？
方法一：
** Declare Function alxSetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long
'将指定的鼠标指针设为当前指针
** Declare Function alxGetCursor Lib "user32" Alias "GetCursor" () As Long
'获取目前选择的鼠标指针的句柄



** Sub MouseType()
'取得左右形光标的值
    Screen.MousePointer = 9 '设屏幕鼠标为9（左右型鼠标）。
    lngMouseOne = alxGetCursor() '返回左右型鼠标在WINDOWS(2000\98\XP)的值。
    Screen.MousePointer = 7 '设屏幕鼠标为11（沙漏）。
    lngMouseTwo = alxGetCursor() '返回左右型鼠标在WINDOWS(2000\98\XP)的值。
    Screen.MousePointer = 0 '重设屏幕鼠标为0（ACCESS自确定）。
    blTextout = False
    blTextlook = False
End Sub



方法二：

随便找一个 .cur文件copy到mdb文件相同的目录
** Declare Function CopyCursor Lib "user32" Alias "CopyIcon" (ByVal hcur As Long) As Long
** Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpstrCurFile As String) As Long
** Declare Function GetCursor Lib "user32" () As Long
** Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
** Const OCR_NORMAL = 32512
dim lngMyCursor As Long
Dim lngSystemCursor As Long


** Sub cmdMyCursor_Click() '更改指针样式
    Dim strCurFile As String
    strCurFile = CurrentProject.Path   "\Cursor.cur"
    '可随意调用其他的.cur鼠标样式文件，以达到显示各种指针的目的
    lngMyCursor = LoadCursorFromFile(strCurFile)
    lngSystemCursor = GetCursor()
    lngSystemCursor = CopyCursor(lngSystemCursor)
    SetSystemCursor lngMyCursor, OCR_NORMAL
    Text1.SetFocus
    Text1.Text = "鼠标指针已经设定为您要的状态"
    cmdMyCursor.Enabled = False
    cmdSystemCursor.Enabled = True
End Sub
** Sub cmdSystemCursor_Click() '恢复系统指针样式
    SetSystemCursor lngSystemCursor, OCR_NORMAL
    Text1.SetFocus
    Text1.Text = "鼠标指针已经恢复为系统状态"
    cmdMyCursor.Enabled = True
    cmdSystemCursor.Enabled = False
    lngSystemCursor = 0
End Sub
** Sub Form_Close()
    If lngSystemCursor <> 0 Then SetSystemCursor lngSystemCursor, OCR_NORMAL
End Sub
** Sub Form_Unload(Cancel As Integer)
    If lngSystemCursor <> 0 Then SetSystemCursor lngSystemCursor, OCR_NORMAL
End Sub