Visual Basic - Detectar Aplicacion Visual

Hola a ver si me pueden ayudar

Necesito saber si un grupo de aplicaciones Visual estan corriendo son 3, para saber si alguna de ellas no se levanto.

Tambien necesito saber como desabilitar el teclado completo.

gracias.

Deberías correr una cuarta aplicación y utilizar la API FindWidows

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName_ As String, ByVal lpWindowName As String) As Long

FindTitle = FindWindow("", "Calculadora")
if FindTitle <> 0 then msgbox "Se encuentra cargada la calculadora"

Para inhabilitar el teclado, podés usar
Shell "rundll32 keyboard,disable"

SABES LOEJECUTO PERO SIEMPRE ME TRAE EN LA VARIABLE
FindTitle=0
NO DETECTA NADA.

no funciona, corri el ejemplo pero me envia un error en
FindWindow que dice asi

Error de compilación:

Procedimiento Sub o Function no definido

Apesar de que yo tengo declarada la funcion en un Modulo.

Estás declarando la API en un módulo como Private y su alcance entonces será el de ese módulo en donde está declarado.
Si la invocás desde un form, va a desconocer la existencia de esa Declaración.
Para extender el alcance de tu declaración poné la API como Public.en un módulo BAS y así podrás invocarla de cualquier parte del Proyecto.
Igualmente si vas a utilizar la API pocas veces y en un Form determinado, Te conviene declararla en dicho Form como Privada y listo.

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long