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