Cerrar proceso

[smike]

Hola gente, es mi primer thread en el foro, tengo que decir que me es MUY util y esta muy bueno.

Ahora voy al tema principal, yo desde mi programa abro un programa, por ejemplo un juego, lo que yo quiero hacer es que cuando cierro mi programa se cierre el juego. Tiene que funcionar asi yo mate el proceso de mi programa, no solo haciendo click en un comando "salir".

Gracias de antemano.

Slds.

[MaN!FesT]

Esto es muy facíl, nada mas es cosa que busques xD. A la próxima lees. Espero te sirva este código:

Código:

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

Private Sub Form_Unload(Cancel As Integer)
    KillProcess ("msnmsgr.exe")
End Sub

Estó al cerrarlo el formulario, matara el proceso de messenger. Espero te de una idea 

Y aquí esta donde lo saque:
Para ver este enlace Registrate o Inicia Sesion

Biblioteca de Código.

Salu2