Simone
Public Declare Function ClipCursor Lib "user32" Alias "ClipCursor" (lpRect As Any) As Long lpRect是RECT区域结构体。 关于禁用Alt+Tab，比较复杂： Option Explicit Dim hhkLowLevelKybd As Long Private Sub chkDisable_Click() If chkDisable = vbChecked Then hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLev
'一个Timer1 Private Declare Function ClipCursor& Lib "user32" (lpRect As RECT) Private Declare Function ClipCursorBynum& Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long) Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Dim r1 As RECT Private Sub Form_Load() Me.Sho
api里面有一个函数可以的吧。。忘了名字了
