Как реализуется многопоточность в VB?

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub cmdMyThreads_Click()
    Dim lngThreadHandle As Long
    
    Dim objMySeconds1 As New MySeconds
    Dim objMySeconds2 As New MySeconds
    Dim lngVremyaNachala As Long
    lngVremyaNachala = GetTickCount
    glngOtklik1 = objMySeconds1.PyatSekund
    glngOtklik2 = objMySeconds2.DesyatSekund
    
    Debug.Print GetTickCount - lngVremyaNachala
    Debug.Print "Oba vizova zakoncheni..."
    
    glngOtklik1 = 0
    glngOtklik2 = 0
    
    lngVremyaNachala = GetTickCount
    lngThreadHandle = CreateThread(ByVal 0&, ByVal 0&, AddressOf FiveSecs, ByVal 0&, ByVal 0&, 0&)
    
    CloseHandle lngThreadHandle
    lngThreadHandle = CreateThread(ByVal 0&, ByVal 0&, AddressOf TenSecs, ByVal 0&, ByVal 0&, 0&)
    CloseHandle lngThreadHandle
    Do Until glngOtklik1 <> 0 And glngOtklik2 <> 0
        DoEvents
    Loop
    
    Debug.Print GetTickCount - lngVremyaNachala
    Debug.Print "Oba vizova zakoncheni..."
    
    glngOtklik1 = 0
    glngOtklik2 = 0
End Sub

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Function DesyatSekund() As Long
    Dim lngVremyaNachala As Long
    
    lngVremyaNachala = GetTickCount
    Do Until GetTickCount - lngVremyaNachala >= 1000
    Loop
    DesyatSekund = 10
End Function
 
Public Function PyatSekund() As Long
    Dim lngVremyaNachala As Long
    
    lngVremyaNachala = GetTickCount
    Do Until GetTickCount - lngVremyaNachala >= 500
    Loop
    PyatSekund = 5
End Function

Option Explicit
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public glngOtklik1 As Long
Public glngOtklik2 As Long
Public Sub FiveSecs()
    Dim objMySeconds As New MySeconds
    glngOtklik1 = objMySeconds.PyatSekund
End Sub
Public Sub TenSecs()
    Dim objMySeconds As New MySeconds
    glngOtklik2 = objMySeconds.DesyatSekund
End Sub