'获取当前鼠标位置
'   Dim  A as  Point
'    GetCursorPos @a
'   "x=" & a.x & ",y=" & a.y 
'设置指针的位置
'    SetCursorPos
'获取鼠标当前处窗口ID
'目标ID = WindowFromPoint(a)
'在处理 WM_SETCURSOR 消息的时候调用 API 函数 SetCursor() 来修改鼠标光标形状。
'SetCursor(LoadCursor(NULL, IDC_HAND));  //此处IDC_HAND是自定义的鼠标形状，
'*鼠标形状
'鼠标的形状由SetCursor函数的第二个参数决定，表示光标资源。
'1.系统光标资源名称
'    IDC_APPSTARTING    后台运行，标准的箭头和小沙漏  
'　　IDC_ARROW          正常选择，标准的箭头
'　　IDC_CROSS          精确选择，十字光标
'　　IDC_HELP           帮助选择，标准的箭头和问号
'　　IDC_IBEAM          文本选择，工字光标
'　　IDC_NO             不可用，  禁止圈
'　　IDC_SIZEALL        移动，    四向箭头指向东、西、南、北
'　　IDC_SIZENESW       双箭头指向东北和西南
'　　IDC_SIZENS         双箭头指向南北
'　　IDC_SIZENWSE       双箭头指向西北和东南
'　　IDC_SIZEWE         双箭头指向东西
'　　IDC_UPARROW        垂直箭头
'　　IDC_WAIT           沙漏
'    IDC_HAND           手型
'If wmsg=WM_SETCURSOR Then
'     SetCursor(LoadCursor(Null, IDC_IBEAM))
'     Function = 1   ' *要注意的是，当设置了鼠标光标以后，您应该让函数返回 TRUE 以防止系统再作缺省处理。
'Else
'     Function = 0   ' 根据你的需要改变
'End If
