Dim withevents - VB

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

Друзья! я не программист, очень нужна ваша помощь. Мне надо переделать один контрол. он приводился в качестве примера к SDK, оцх закрыто. контрол обращался к объекту:
Dim StccObj As New STCCOrders
Dim WithEvents ActiveObj As ActiveOrders
требует отсутствующую библиотеку.
есть другая библиотека, где я могу получить объект STCCOrders как свойство другого объекта:

Решение задачи: «Dim withevents»

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

                            <font color="blue">Dim</font> mORTrade <font color="blue">as</font> <font color="blue">New</font> ORTrade <font color="00AA00">'<- Здесь указать тип ORTrade</font>
<font color="blue">Dim</font> StccObj <font color="blue">As</font> STCCOrders
<font color="blue">Dim</font> <font color="blue">WithEvents</font> ActiveObj <font color="blue">As</font> ActiveOrders

<font color="blue">Private</font> <font color="blue">Sub</font> Form1_Load()
    <font color="blue">Set</font> StccObj = mORtrade.application.STCCData
    <font color="blue">Set</font> ActiveObj = StccObj.ActiveOrders
<font color="blue">End</font> <font color="blue">Sub</font>
                        