Doevents обратная функция: Прерывание стэка событий Windows пока не выполнится стэк событий application - VB

Public Sub TimeRun()
Dim ii As Long 'counter
 
If ansiCNT(1) > 99 Then
ansiCNT(1) = 10
End If
 
ansiCNT(1) = ansiCNT(1) + 1
 
 
If GetAsyncKeyState(46) = -32768 Then 'delete
    ansiCNT(1) = 0
End If
 
If ansiCNT(5) = 1 Then '.........................................................................Delete
 
Delete Procedure
 
end if
 
End Sub
 
Private Function LowLevelkbdProc(ByVal uCode As Long, ByVal wParam As Long, lParam As KBDLLHOOKSTRUCT) As Long
 
'Исключение клавиш
          For i = 1 To 47
        
            If CLng(exept(i)) = CLng(lParam.VkCode) Then
       
                HookCh = wParam
      
            Exit Function
            End If
'Исключение клавиш      
    
     If i = 47 Then
      
       If uCode = HC_ACTION Then
 
          If wParam = WM_KEYDOWN Then
          
HOOK PROCEDURE
    
          Exit Function
         End If
         
        End If
     
      End If
      
      
    
       Next i
  
    LowLevelkbdProc = CallNextHookEx(hKeyHook, uCode, wParam, lParam)
End Function