Declaración de hilos

        Dim th1 As Thread = Nothing
        Dim th2 As Thread = Nothing

        th1 = New Thread(AddressOf thtask1)
        th1.Start()

        th2 = New Thread(AddressOf thtask2)
        th2.Start()