RE:terminar un programa en ejecucion
Hola! muy parecido a lo que acabo de contestar... Podrias usar la API PostMessage... en el ejemplo lo que hago es cerrar la calculadora de windows. Para probar el ejemplo en un form agrega un boton y en la seccion general del form pega el siguiente codigo:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Const WM_CLOSE = &H10
Private Sub Command1_Click()
Dim Resultado As Long
Dim Ventana As Long
' Busca la ventana con el titulo "Calculadora"
Ventana = FindWindow(vbNullString, "Calculadora")
' Le envia un mensaje de cierre
Resultado = PostMessage(Ventana, WM_CLOSE, 0&, 0&)
End Sub
Bueno espero sea esto lo que buscas.Saludos