Visual Basic - ¿COMO CIERRO UNA APLICACION DESDE VB6?

Hola chicos y chicas, mis saludos a todos...
Tengo Windows 2000, programando en Visual Basic 6 Empresarial,
Necesito sencillamente que mi programa que estoy desarrollando pueda cerrar una aplicación que llame mediante la instrucción SHELL.

Lo pude hacer con sendkeys "{TAB}" + "{F4}" pero eso es muy arriesgado porque el usuario puede que este trabajando con varias aplicaciones abiertas y se corre el peligro de que cierre otra que no es.

Si alguien me puede ayudar le doy mi agradecimiento de antemano.
Y si me funciona lo invito a almorzar.

Prueba este código sacado de www.ambsoftware.com

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

Private Sub Form_Load()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Calculadora")
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error."
Else
MsgBox "Se ha cerrado la Calculadora."
End If
Else
MsgBox "La Calculadora no está abierta."
End If
End Sub

Si te funciona ponte en contacto conmigo para invitarme a almorzar.
un saludo