CONTROLAR OUTRO APLICATIVO

Private Declare Function FindWindowEx Lib [Ô]user32[Ô] Alias [Ô]FindWindowExA[Ô] ( _
  ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
  ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] ( _
  ByVal hwnd As Long, ByVal wMsg As Long, _
  ByVal wParam As Long, lParam As Any) As Long

Private Const WM_COMMAND = &H111

Private Declare Function GetClipboardFormatName Lib [Ô]user32[Ô] _
  Alias [Ô]GetClipboardFormatNameA[Ô] ( _
  ByVal wFormat As Long, ByVal lpString As String, _
  ByVal nMaxCount As Long) As Long

Dim oExplorer As InternetExplorer
Dim lWnd As Long

  Set oExplorer = New InternetExplorer
  oExplorer.Navigate [Ô]C:\[Ô]
  lWnd = FindWindowEx(oExplorer.hwnd, 0, [Ô]SHELLDLL_DefView[Ô], vbNullString)
  SendMessage lWnd, WM_COMMAND, 28717, ByVal 0&
  oExplorer.Visible = True