InternetExplorer + Events - VB

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

Подскажите каким образом можно перехватить собыдия IE в своём объекте?

Решение задачи: «InternetExplorer + Events»

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

                            <font color="blue">Private</font> <font color="blue">WithEvents</font> ie <font color="blue">As</font> SHDocVw.InternetExplorer
<font color="blue">Private</font> <font color="blue">WithEvents</font> doc <font color="blue">As</font> MSHTML.HTMLDocument

<font color="blue">Private</font> <font color="blue">Sub</font> UserForm_Initialize()
    <font color="blue">Set</font> ie = CreateObject(<font color="teal">"InternetExplorer.Application"</font>)
    
    ie.Visible = True
    ie.Navigate <font color="teal">"www.ya.ru"</font>
    
    <font color="blue">Do</font> <font color="blue">While</font> ie.Busy
        DoEvents
    <font color="blue">Loop</font>
    
    <font color="blue">Set</font> doc = ie.Document
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> ie_OnQuit()
    MsgBox <font color="teal">"Вышли из IE."</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Function</font> doc_onclick() <font color="blue">As</font> <font color="blue">Boolean</font>
    MsgBox <font color="teal">"Щелкнули мышью."</font>
<font color="blue">End</font> <font color="blue">Function</font>
                        