Eh aki un ejemplo para terminar procesos diferentes.
Cita: Private Sub Timer16_Timer()
On Error GoTo rs
AppActivate "Restaurar sistema"
Shell "tskill rstrui"
rs:
End Sub
Private Sub Timer2_Timer()
On Error GoTo ad
AppActivate "Administrador de tareas de Windows"
Shell "tskill taskmgr"
ad:
End Sub
Private Sub Timer3_Timer()
On Error GoTo ed
AppActivate "Editor del registro"
Shell "tskill regedit"
ed:
End Sub
Private Sub Timer7_Timer()
On Error GoTo eje
AppActivate "Ejecutar"
SendKeys "{esc}"
eje:
End Sub
Cada proceso esta dentro de un Timer con un intervalo de 100 para que este chekando rapidamente si se ejecuta la ventana y estan separados por que si los pongo juntos no se ejecuta ninguna sentencia, trate de usar "select case" o "if else" pero pss no me funciono.
No se mucho sobre como utilizar el "AppActivate" pero espero te sirva, alomejor, alrrato alguien te ofrese una solucion mejor a la mia
Salu2