Интернет браузер, что в нем загружено? - VB

Формулировка задачи:

Что то не могу сообразить как узнать что загруженно в конкретном окне IE (созданного не VB). Вобщем имеется открытое окно браузера, в нем переодически меняется странички, как подключится к этому окну чтоб узнать что в нем находится, когда сам создаешь окно то тут не трудно, а как присвоить переменной уже открытое окно?
Походу тут не обойтись без API. Кто знает подскажите.

Решение задачи: «Интернет браузер, что в нем загружено?»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> InternetDial Lib <font color="teal">"Wininet.dll"</font> ( _
  <font color="blue">ByVal</font> hwndParent <font color="blue">As</font> <font color="blue">Long</font>, _
  <font color="blue">ByVal</font> lpszConnectoid <font color="blue">As</font> <font color="blue">String</font>, _
  <font color="blue">ByVal</font> dwFlags <font color="blue">As</font> <font color="blue">Long</font>, _
  <font color="blue">ByRef</font> lpdwConnection <font color="blue">As</font> <font color="blue">Long</font>, _
  <font color="blue">ByVal</font> dwReserved <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> InternetHangUp Lib <font color="teal">"Wininet.dll"</font> ( _
  <font color="blue">ByVal</font> lpdwConnection <font color="blue">As</font> <font color="blue">Long</font>, _
  <font color="blue">ByVal</font> dwReserved <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> GetActiveWindow Lib <font color="teal">"user32"</font> () <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Private</font> <font color="blue">Enum</font> DialUpOptions
   INTERNET_DIAL_UNATTENDED = &H8000
   INTERNET_DIAL_SHOW_OFFLINE = &H4000
   INTERNET_DIAL_FORCE_PROMPT = &H2000
<font color="blue">End</font> <font color="blue">Enum</font>

<font color="blue">Private</font> <font color="blue">Const</font> ERROR_SUCCESS = &H0
<font color="blue">Private</font> <font color="blue">Const</font> ERROR_INVALID_PARAMETER = &H87

<font color="blue">Private</font> mlConnection <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Sub</font> DialUp()
    <font color="blue">Dim</font> lngResult <font color="blue">As</font> <font color="blue">Long</font>
    <font color="blue">Dim</font> hwnd <font color="blue">As</font> <font color="blue">Long</font>
    
    hwnd = GetActiveWindow

    lngResult = InternetDial(hwnd, _
      <font color="teal">"My Connection"</font>, _
      DialUpOptions.INTERNET_DIAL_FORCE_PROMPT, _
      mlConnection, <font color="darkblue"><b>0</b></font>)

    <font color="blue">If</font> lngResult = ERROR_SUCCESS <font color="blue">Then</font>
        MsgBox <font color="teal">"Dial Up Successful"</font>, , <font color="teal">"Dial-Up Connection"</font>
    <font color="blue">Else</font>
        MsgBox <font color="teal">"UnSuccessFull Error Code "</font> & lngResult, , <font color="teal">"Dial-Up Connection"</font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Sub</font> HangUp()
    <font color="blue">Dim</font> lngResult <font color="blue">As</font> <font color="blue">Long</font>
    
    <font color="blue">If</font> <font color="blue">Not</font> (mlConnection = <font color="darkblue"><b>0</b></font>) <font color="blue">Then</font>
         lngResult = InternetHangUp(mlConnection, <font color="darkblue"><b>0</b></font>&)
         
         <font color="blue">If</font> lngResult = <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
             MsgBox <font color="teal">"Hang up successful"</font>, , <font color="teal">"Hang Up Connection"</font>
         <font color="blue">Else</font>
             MsgBox <font color="teal">"Hang up NOT successful"</font>, , <font color="teal">"Hang Up Connection"</font>
         <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">Else</font>
         MsgBox <font color="teal">"You must dial a connection first!"</font>, , <font color="teal">"Hang Up Connection"</font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        