Beim Klicken auf die Schaltfläche sollen Tastatur und Maus für 10 Sekunden blockiert werden. Danach wieder alles normal.

Code

Option Explicit
 
' Benötigte API Deklaration
Private Declare Function BlockInput Lib "user32" ( _
  ByVal fBlock As Boolean) As Boolean

Private Sub Form_Load() 
  ' Timer-Eigenschaften
  Timer1.Enabled = False
  Timer1.Interval = 1000
End Sub

Private Sub cmdBlock_Click()
  ' Tastatur und Maus-Eingabe sperren
  cmdBlock.Enabled = False
  BlockInput True
  Timer1.Tag = 10
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  ' Restzeit anzeigen
  lblTime.Caption = "Verbleibende Zeit: " & _
    CStr(Timer1.Tag) & " Sekunden"
  lblTime.Visible = True
  Timer1.Tag = Timer1.Tag - 1
 
  ' OK, Zeit vorbei ;-)
  If Timer1.Tag < 0 Then
    BlockInput False
    cmdBlock.Enabled = True
    lblTime.Visible = False
  End If
End Sub

@Moni:
Aber nicht wieder die lieben Arbeitskollegen damit ärgern