| Option Explicit
 
 Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 Private Sub Form_Activate()
 'KPD-Team 2000
 'URL: http://www.allapi.net/
 'E-Mail: KPDTeam@Allapi.net
 DoEvents
 'block the mouse and keyboard input
 BlockInput True
 'wait 10 seconds before unblocking it
 Sleep 10000 ' for 10 seconds
 'unblock the mouse and keyboard input
 BlockInput False
 Unload Me
 End Sub
 
 
 |