win10下调用mouse_event的API函数，无法识别Or连接，代码混乱。

win10下调用mouse_event函数，进行移动鼠标操作，发现执行命令，无法实现移动。

代码如下：

Private Declare Sub mouse Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long '获取分辨率
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 '指定鼠标使用绝对坐标系，此时，屏幕在水平和垂直方向上均匀分割成65535×65535个单元
Private Const MOUSEEVENTF_MOVE = &H1 '移动鼠标
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下
Private Const MOUSEEVENTF_LEFTUP = &H4 '模拟鼠标左键抬起
Private Sub shubiaoyidong(ByVal x As Long, ByVal y As Long)
mw = x* 65535 / GetSystemMetrics32(0)
mh = y * 65535 / GetSystemMetrics32(1)
'移动
mouse MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, mw, mh, 0, 0 
End Sub
Sub test()
shubiaoyidong 998, 745
End Sub

        点击宏运行后，发现鼠标在win10下无法移动，无法执行命令，这里不知道出了什么问题？

       如何将Or改成符号&，则虽然可以这些命令，但是执行命令过程中会实现鼠标右键点击的功能，出现执行混乱的情况，代码不能正常执行，请问大神能找出问题在哪么？我问过相关的经验人员也不能给出合理回答，请各位大神老师帮忙指点一下！