¿como Cerrar programas .EXE desde visual basic 6.0?

[nov_hack]

ALguno de ustedes sabe cerrar programas .exe desde vb6.0 es k solo los abro pero no los cierro
shell("ruta del programa")
pero para cerrar?
¿¿¿¿¿¿??

[Zion_Tm]

Con un " mata procesos " por ahi anda la funcion o sino buscala en google.

[MaN!FesT]

Agregar un command button:

Código:

Private Sub Command1_Click()
    KillProcess ("msnmsgr.exe")
End Sub

Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename

    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")

    For Each oService In oServices
        servicename = _
            LCase(Trim(CStr(oService.Name) & ""))

        If InStr(1, servicename, _
            LCase(processName), vbTextCompare) > 0 Then
            ret = oService.Terminate
        End If
    Next

    Set oServices = Nothing
    Set oWMI = Nothing
    Exit Sub
ErrHandler:
    Err.Clear
End Sub

SAcado de la librería de código de Ranefi.

[MaN!FesT]

Aunque también se podría así (para no complicarnos tanto):

Código:

Private Sub Form_Load()
Shell "cmd.exe /c Taskkill /f /IM msnmsgr.exe"
End sub

Salu2

[>> s E t H <<]

pero con lo ultimo no siempre funcionaria xq hay veces q el cmd esta desactivado :S

PD: esto no va en VB?