vb ， ClipCursor 为什么单击之后失效 _vb中用了api的ClipCursor，结束窗体后鼠标依然不能走出窗体区域

vb，ClipCursor 为什么单击之后失效应该是改变了窗口的RECT信息导致失效。
vb中用了api 的ClipCursor，结束窗体后鼠标依然不能走出窗体区域这个问题可以这样的解决：首先你要明白clipcursor函数的参数的意义：RECT，指定一个矩形，用像素屏幕坐标系统表示。鼠标指针必须在这个区域内运动。
解决的办法：1：你可以使用函数的ClipCursorBynum，可将参数设为Long值，用它传递一个0，恢复常规运作状态。2：使用ReleaseCapture函数来解除。
怎样琐住键盘如何锁住鼠标和键盘呢？- -鼠标还好办用ClipCursor设置一个小区域就行了键盘就比较麻烦了在Win9X下可以先用SystemParametersInfo禁止Alt+Tab及Ctrl+Alt+Del，再用一个用在顶层的窗体拦在前面其实最正规的方法是写全局Hook拦截掉鼠标键盘操作可惜受VB不能写Win32DLL的限制ClipCursor,ClipCursorBynumVB声明DeclareFunctionClipCursor&Lib"user32"(lpRectAsRECT)DeclareFunctionClipCursorBynum&Lib"user32"Alias"ClipCursor"(ByVallpRectAsLong)说明将指针限制到指定区域。ClipCursorBynum是一个别名，允许我们清除以前设置的指针剪切区域返回值Long，非零表示成功，零表示失败。
鼠标指针必须在这个区域内运动。
VB挂机锁问题①鼠标位置设置函数，下述参数a_RestrictObject是限制对象，可以是窗体，也可以是窗体上的任意控件。Public Sub SetRestrict(ByRef a_RestrictObject As Object)Dim r As RECTOn Error Resume NextGetWindowRect (a_RestrictObject.hwnd), rIf Err.Number = 0 ThenCall ClipCursor(lpRect)End IfEnd Sub②鼠标位置解除函数，即接触对鼠标位置的限制Public Sub RemoveRestrict()Dim lResult As Lo