[5分]这个函数按键如保调用光标

Option Compare Database
Option Explicit
'API函数声明
Private Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function apiSetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long
Private Declare Function apiLoadCursorByNum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


'光标形状常量枚举
Public Enum cuCursorType
    cuCursorHand = 32649            '手形
    cuCursorAppStarting = 32650     '系统忙
    cuCursorArrow = 32512           '常规箭头形
    cuCursorCross = 32515           '十字形
    cuCursorIbeam = 32513           '文本插入
    cuCursorIcon = 32641            '使用指定光标
    cuCursorNo = 32648              '不可用
    cuCursorSize = 32640            '隐藏指针
    cuCursorSizeAll = 32646         '选中并移动
    cuCursorSizeNESW = 32643        '左下角右上角大小调整
    cuCursorSizeNS = 32645          '上下调整
    cuCursorSizeNWSE = 32642        '左上角右下角大小调整
    cuCursorSizeWE = 32644          '左右调整
    cuCursorUpArrow = 32516         '上箭头
    cuCursorWait = 32514            '沙漏
End Enum


Public Function SetCursor(Optional CursorType As cuCursorType = cuCursorHand)
    Call apiSetCursor(apiLoadCursorByNum(0, CursorType))
End Function