鼠标指针可真是个好玩的东西。我们对它可开了好多玩笑了，以后可能还要开下去。这期推出的还是个鼠标恶作剧。
　　听说过ClipCursor函数吗？它可以把鼠标的活动范围限制在一定的区域内，不能出界。如果我们把鼠标的活动范围限制在鼠标当前位置方圆5个像素内，0.05秒重新设置一次，那么鼠标在0.05内就只能走5个像素了。虽然仍能跑遍整个屏幕，但变得慢吞吞的了。从屏幕的左侧跑到右侧需要花二十几秒，真能急死人。
　　好了，做个程序去害人吧！
　　打开VB，先声明： 
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
        x As Long
        y As Long
End Type

Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
　　然后，拖一个Timer出来，设Interval为50，为它写这些代码： 
    Dim myPoint As POINTAPI
    Dim myRect As RECT
    
    GetCursorPos myPoint
    
    With myRect
        .Left = myPoint.x - 2
        .Right = myPoint.x + 2
        .Top = myPoint.y - 2
        .Bottom = myPoint.y + 2
    End With
    
    ClipCursor myRect
　　好像差不多了。不过别忘了最重要的：在Form_Load()中写上Me.Hide，否则就露馅了。
　　老规矩，搞一个免安装的回去玩吧！