投稿者 るきお  () 投稿日時 2008/9/11 06:32:00
条件付きで可能です。キー操作などでほかのアプリケーションの切り替えられるとマウスに対する制御は失われてしまうようです。 
Vistaで試しましたが、ひょっとするとXP以前では動作が異なるかもしれません。 
でも、[Ctrl] + [Alt] + [Delete]が押されても停止したままでいることができるでしょうか? 
 
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long 
Private Type RECT 
        Left As Long 
        Top As Long 
        Right As Long 
        Bottom As Long 
End Type 
 
Private Sub Command1_Click() 
 
    Dim ThisRect As RECT 
     
    ThisRect.Left = 100 
    ThisRect.Top = 100 
    ThisRect.Bottom = 100 
    ThisRect.Right = 100 
     
    Call ClipCursor(ThisRect) 
 
End Sub