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
 
  |