Закрытие приложения через ВБ

  Dim strTerminateThis As String
        Dim objWMIcimv2 As Object
        Dim objProcess As Object
        Dim objList As Object
        Dim intError As Integer
 
        strTerminateThis = "calc.exe" 'Имя процесса сюда <----------
 
 
        objWMIcimv2 = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\.\root\cimv2") 
        objList = objWMIcimv2.ExecQuery _
        ("select * from win32_process where name='" & strTerminateThis & "'") 'Ищем процесс
 
 
        If objList.Count = 0 Then 'Если =0, то процесс не найден
 
            objWMIcimv2 = Nothing
            objList = Nothing
            objProcess = Nothing
            Me.Close()
 
        Else
            'Иначе - завершаем
 
            For Each objProcess In objList
 
                intError = objProcess.Terminate 'Завершаем процесс и соответственно все его потоки
                'Если вернули в intError 0, то всё успешено, иначе - закрываемся
                If intError <> 0 Then
 
                    Me.Close()
 
                End If
            Next
 
 
 
            objWMIcimv2 = Nothing
            objList = Nothing
            objProcess = Nothing
            Me.Close()
End If

Dim RetValue
Private Sub cmdOpenButton_Click()
RetValue = Shell("c:\calc.exe",1)
End Sub
 
Private Sub cmdCloseButton_Click()
AppActivate RetValue
SendKeys "%{F4}
End Sub