'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.
 
'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source !
 
Option Explicit
 
Private Declare Function BlockInput Lib "user32" (ByVal fBlock _
        As Long) As Long
 
Const API_FALSE As Long = 0&
Const API_TRUE As Long = 1&
 
Private Sub Command1_Click()
    Timer1.Interval = 500
    Timer1.Enabled = True
    Call BlockInput(API_TRUE)
End Sub
 
Private Sub Timer1_Timer()
    Static Cnt As Long
 
    Cnt = Cnt + 1
    If Cnt > 10 Then
        Cnt = 0
        Timer1.Enabled = False
        Call BlockInput(API_FALSE)
        Label1.Caption = ""
    Else
        Label1.Caption = "Verbleibende Zeit bis zur Rückstellung: " _
                         & Format$(CStr((10 - Cnt)) / 2, "0.0")
 
    End If
End Sub