Option Explicit
 
Private Declare Function BlockInput Lib "user32" (ByVal fBlock _
        As Long) As Long
 
Const API_FALSE = 0&
Const API_TRUE = 1&
 
Private Sub Form Load()
Call BlockInput(API_TRUE)
End Sub
 
Static Cnt As Long
 
    Cnt = Cnt + 1
    If Cnt > 10 Then
      Cnt = 0
   Label1.Caption = ""
    Else
    End If
End Sub