Vİsual BAsic te işlem sonlandırma

[E.B.O.B.]

arkadaşlar ben 2 farklı programı aynı anda açıp daha sonra birinin diğerini sonlandırmasını istiyorum. aslında bunu işlem sonlandırma yolu ile yapmak istiyorum yani diyelim ki program.exe çalışan bir işlem olsun ve ben bu işlemi sonlandırmak istiyorum. bunu vb de nasıl yapabilirim?

[Acoustic]

Ben burda api kullanarak yazdım. Apilerdende anlamam ya biraz kopya çektim . Örnek olarak notepad i aldım. Çalıştırdan boş bi notepad aç, sonra içine aşağıdaki kodu yapıştırdığın formu çalıştırınca adsız notpadin sonlandığını göreceksin

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Dim ProgHwnd As Long
    Dim ID As Long
    Dim re As Byte

Private Sub Form_Load()
re = 0
Tekrar:
    ProgHwnd = FindWindow("NotePad", "Adsız - Not Defteri")
    If ProgHwnd <> 0 Then
        GetWindowThreadProcessId ProgHwnd, ID
        TerminateProcess OpenProcess(1, 0, ID), 0
    ElseIf re = 0 Then
        Sleep 500
        re = 1
        GoTo Tekrar
    Else
    MsgBox "Program zaten çalışmıyor."
    End If
End Sub