Visual Basic - Cerrar aplicaciones

Hola a todos, a ver si me pueden ayudar, quisiera saber como cierro una aplicación abierta con shell, yo abro el programa de la siguiente manera:

stprograma = "" & App.Path & "calc.exe"
ventana = ShellExecute(Me.hwnd, vbNullString, stprograma, vbNullString, App.Path, 3)

he probado a cerrarlo así:
AppActivate ventana
SendKeys "%{F4}", True
pero no me funciona, si me pudieran decir alguna otra manera de cerralo o decirme que es lo que hago mal.
Gracias.

Las puedes cerrar utilizando API ... crea un nuevo formulario y pega el sgte codigo:

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_QUIT = &H12
Private Sub Command1_Click()
Dim sTitle As String
Dim iHwnd As Long
Dim ihTask As Long
Dim iReturn As Long
sTitle = "Calculator"
iHwnd = FindWindow(0&, sTitle)
iReturn = PostMessage(iHwnd, WM_QUIT, 0&, 0&)
MsgBox "Calculadora ha sido cerrada ... "
End Sub

suerte ....