Mouse & Keybord Kilitleme

GEREKENLER
1 adet label
1 adet buton
1 adet timer nesnesi formumuza ekleyelim.

Const API_FALSE = 0&
Const API_TRUE = 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 = "Eski Hal İcin Kalan Zaman: " _
& Format$(CStr((10 - Cnt)) / 2, "0.0")
End If
End Sub