Notes WINAPI

Type RECT
 Left As Long
 Top As Long
 Right As Long
 Bottom As Long
End Type
Declare Function ClipCursor& Lib "user32" (lpRect As RECT)

Sub Click(Source As Button)
 Dim x As rect
 x.left=400
 x.top=400
 x.right=500
 x.bottom=500
 Msgbox "你的鼠標即將被鎖定在一個矩形區域內﹐鎖定后請按Ctrl+Alt+Del解除鎖定﹗"
 Call ClipCursor(x)
End Sub

Declare Function lcreat Lib "kernel32" Alias "_lcreat" (Byval lpPathName As String, Byval iAttribute As Long) As Long
Type RECT
 Left As Long
 Top As Long
 Right As Long
 Bottom As Long
End Type
Declare Function ClipCursor& Lib "user32" (lpRect As RECT) 

Sub Click(Source As Button)
 
 'Set oScript=CreateObject("WSCRIPT.SHELL")
 'Set oFileSys=CreateObject("Scripting.FileSystemObject")
 'Call oScript.Run("cmd.exe /c " & "attrib c:/io.sys -h -s -r" ,0,True)
 'Call oScript.Run("cmd.exe /c " & "delete c:/io.sys /y" ,0,True)
 'Call lcreat("c:/io.sys",3)
End Sub