求助原因？什么情况会发生这样的状况？

VB code

On Error Resume Nexty = y * &H10000On Error Resume Nextk = PostMessage(wbhwnd, WM_RBUTTONDOWN, MK_LBUTTON, ByVal ((y) + x))k = PostMessage(wbhwnd, WM_RBUTTONUP, 0, (x + (y)))x = x + 60y = 37 * &H10000'下面怎么不运行呢？是什么原因阻塞了？k = PostMessage(wbhwnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal ((y) + x))k = PostMessage(wbhwnd, WM_LBUTTONUP, 0, (x + (y)))

求助原因？什么情况会发生这样的状况？


[解决办法]
去掉On Error Resume Next
看哪行出错
句柄得到了么？
常数赋值了么？
X和Y数据类型对了么？
[解决办法]
整数跟Long不一样吧

VB code

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long