Как в поток передать параметры из формы? - VB

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

Здравствуйте...подскажите пожалуйста Как в поток передать параметры из формы?
Поток в отдельном модуле...

Explicit
   CreateThread Lib  _
            (ByVal lpThreadAttributes  , _
            ByVal dwStackSize  Long, _
            ByVal lpStartAddress  Long, _
            lpParameter  , _
            ByVal dwCreationFlags  Long, _
            lpThreadID  Long)  Long

 thread1  Long

 Sub Main()
    frmOutput.Show
 Sub

 Sub ThreadPhoneSession()
Dim i  
i = 
 i > 
(phoneSession)
   
  i = i - 
Wend
 Sub

мне нужно передать phoneSession, который определяется в коде формы...помогите пожалуйста?

Решение задачи: «Как в поток передать параметры из формы?»

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

                            <font color="blue">Public</font> <font color="blue">Sub</font> ThreadPhoneSession(lPhoneState <font color="blue">as</font> <font color="blue">Long</font>)
<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> phoneSession <font color="blue">As</font> <font color="blue">MyClass</font>
i = <font color="darkblue"><b>100</b></font>
<font color="blue">Set</font> phoneSession = ObjFromPtr(lPhoneState)
<font color="blue">While</font> i > <font color="darkblue"><b>0</b></font>
<font color="00AA00">'While (phoneSession.Opened)</font>
  <font color="blue">If</font> (phoneSession.PhoneState <> PhoneState_Idle) <font color="blue">Then</font>
    writeNum <font color="00AA00">'(phoneSession)</font>
  <font color="blue">End</font> <font color="blue">If</font>
  i = i - <font color="darkblue"><b>1</b></font>
<font color="blue">Wend</font>
<font color="blue">End</font> <font color="blue">Sub</font>


<font color="blue">Public</font> <font color="blue">Function</font> ObjFromPtr(lObjPtr <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Dim</font> LoTmp <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">If</font> lObjPtr <> <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
        CopyMemory LoTmp, lObjPtr, <font color="darkblue"><b>4</b></font>
        <font color="blue">Set</font> ObjFromPtr = LoTmp
        CopyMemory LoTmp, <font color="darkblue"><b>0</b></font>&, <font color="darkblue"><b>4</b></font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Function</font>
                        