*--------------------------------------------------------------------------- function do_it() declare integer EnableWindow in win32api integer, integer declare Sleep in Win32api integer ** disable keyboard =EnableWindow(_screen.hwnd, 0) ?? 'keyboard disabled' =sleep(5000) =EnableWindow(_screen.hwnd, 1) ?? 'keyboard enabled' endfunc *---------------------------------------------------------------------------see http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinput/keyboardinputreference/keyboardinputfunctions/enablewindow.asp