Proceso de bloqueo de VB

Función de declaración privada OpenProcess Lib "kernel32" (ByVal dwDesiredAccess mientras, ByVal bInheritHandle mientras, ByVal dwProcessId mientras) mientras

Función de declaración privada CloseHandle Lib "kernel32" (ByVal hObject mientras) mientras

Const privada SYNCHRONIZE = & H100000

Const privada STANDARD_RIGHTS_REQUIRED = &HF0000

Const privada PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED o SYNCHRONIZE o &HFFF)