Es una api interesante! pongan esto en un modulo bas
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Public Function Bloquear(Incremento As Integer, TiempoMax As Integer)
Static contador As Integer
contador = contador + Incremento
If contador >= TiempoMax Then
BlockInput False
End If
End Function
Y esto en su formulario, y necesitan agregar un timer si no se les bloqueara y no podran hacer nada ok?
Private Sub Form_Load()
Timer1.Interval = 1000
'BlockInput True
End Sub
Private Sub Timer1_Timer()
Bloquear 2, 10'El dos es el incremento en segundos y el diez son los segundos maximos, ok?
End Sub
Si tienes dudas postea!
Edited by: Zitro