Foro de elhacker.net

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

Const WM_CLOSE = &H10
Const ClaseDeIE = "Internet Explorer_Server"
Const ClaseDeFF = "MozillaWindowClass"

Private Sub Form_Load()
  Dim WinWnd As Long
    'Como solo queremos  la del IExolorer...
    'se la ponemos directamente
    WinWnd = FindWindow(ClaseDeIE, vbNullString) 'vbnullstring el segundo valor para que valga para cualquier ventana del IE
    If WinWnd = 0 Then Exit Sub  ' si no esta salimos sin hacer nada
    ' el show de window lo quite , me imagino que no quieres mostrarla si la encuentra
   ' el nombre de la clase tambien lo quito , ya lo tenemos
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&  ' cerramos el IE y hasta otra

End Sub