PrivateDeclareFunctionalxSetCursorLib\"user32\"Alias\"SetCursor\"(ByValhCursorAsLong)AsLong
@#将指定的鼠标指针设为当前指针
PrivateDeclareFunctionalxGetCursorLib\"user32\"Alias\"GetCursor\"()AsLong
@#获取目前选择的鼠标指针的句柄
PrivateSubMouseType()
@#取得左右形光标的值
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
EndSub
方法二：
随便找一个.cur文件copy到mdb文件相同的目录
PrivateDeclareFunctionCopyCursorLib\"user32\"Alias\"CopyIcon\"(ByValhcurAsLong)AsLong
PrivateDeclareFunctionLoadCursorFromFileLib\"user32\"Alias\"LoadCursorFromFileA\"(ByVallpstrCurFileAsString)AsLong
PrivateDeclareFunctionGetCursorLib\"user32\"()AsLong
PrivateDeclareFunctionSetSystemCursorLib\"user32\"(ByValhcurAsLong,ByValidAsLong)AsLong
PrivateConstOCR_NORMAL=32512
DimlngMyCursorAsLong
DimlngSystemCursorAsLong
PrivateSubcmdMyCursor_Click()@#更改指针样式
DimstrCurFileAsString
strCurFile=CurrentProject.Path+\"\\Cursor.cur\"
@#可随意调用其他的.cur鼠标样式文件，以达到显示各种指针的目的
lngMyCursor=LoadCursorFromFile(strCurFile)
lngSystemCursor=GetCursor()
lngSystemCursor=CopyCursor(lngSystemCursor)
SetSystemCursorlngMyCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text=\"鼠标指针已经设定为您要的状态\"
cmdMyCursor.Enabled=False
cmdSystemCursor.Enabled=True
EndSub
PrivateSubcmdSystemCursor_Click()@#恢复系统指针样式
SetSystemCursorlngSystemCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text=\"鼠标指针已经恢复为系统状态\"
cmdMyCursor.Enabled=True
cmdSystemCursor.Enabled=False
lngSystemCursor=0
EndSub
PrivateSubForm_Close()
IflngSystemCursor<>0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IflngSystemCursor<>0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSub
