Option Explicit
Public Declare Function CreateThread Lib "kernel32" _
            (ByVal lpThreadAttributes As Any, _
            ByVal dwStackSize As Long, _
            ByVal lpStartAddress As Long, _
            lpParameter As Any, _
            ByVal dwCreationFlags As Long, _
            lpThreadID As Long) As Long

Public thread1 As Long

Public Sub Main()
    frmOutput.Show
End Sub

Public Sub ThreadPhoneSession()
Dim i As Integer
i =  100 
While i >  0 
'While (phoneSession.Opened)
  If (phoneSession.PhoneState <> PhoneState_Idle) Then
    writeNum '(phoneSession)
  End If
  i = i -  1 
Wend
End Sub