Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
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() DoEvents BlockInput True Sleep 10000 BlockInput False End Sub