OK, if that method doesn't work for you, try the TerminateProcess API which will Force a Process to Close, ie.
Code:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Const PROCESS_ALL_ACCESS = &H1F0FFF

Private Sub Command1_Click()
    Dim lHwnd As Long
    Dim lProcess As Long
    Dim lExitCode As Long
    
    'Get the Window Handle
    lHwnd = FindWindow("IEFrame", vbNullString)
    'Get the ProcessID
    Call GetWindowThreadProcessId(lHwnd, lProcess)
    'Get the Process Handle
    lProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, lProcess)
    'Get the Exitcode
    Call GetExitCodeProcess(lProcess, lExitCode)
    'Terminate the Process
    Call TerminateProcess(lProcess, lExitCode)

End Sub
------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]