[LSL]

Kerish
Так можно закрыть программу по названию окна, а про процесс поищи тему, которую создавал fishca..

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10
Public Const ProgName = "Название окна программы."

Private Sub CloseProgramm()
    Dim winHwnd As Long
    Dim RetVal As Long

    winHwnd = FindWindow(vbNullString, ProgName)

    If winHwnd <> 0 Then
        RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
        If RetVal = 0 Then MsgBox "Ошибка."
    Else
        MsgBox ProgName + " не открыт."
    End If
End Sub