VB鼠标点击无效

两种办法：
1.
Private Function MyWndProc(ByVal hwnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case message
case WM_RBUTTONDOWN,WM_LBUTTONDOWN:
exit function
End Select

MyWndProc = CallWindowProc(oldWin_proc, hwnd, message, wParam, lParam)
End Function
把要屏蔽的控件的消息处理程序用MyWndProc来取代替
2.如果仅仅是某个控件

可以在mouse的按键时间里面
判断：
如果button=rightbutton or leftbutton
button＝0