Private Sub cmdBloqueo_Click() BlockInput True ShowCursor FalseEnd SubPrivate Sub Form_Load() tmrTiempo.Interval = 60000End SubPrivate Sub tmrTiempo_Timer() BlockInput False ShowCursor TrueEnd
Public Declare Function BlockInput Lib "user32" _ (ByVal fBlock As Long) As LongDeclare Function ShowCursor Lib "user32" _ (ByVal bShow As Long) As Long