Sub print_dots(char As String, count as integer)
    For i As Integer = 0 To count-1
        Print char;
        Sleep CInt(Rnd() * 100), 1
    Next
End Sub

    Randomize(Timer())

    Print " main thread: ."
    Print "other thread: *"

    '' Launch another thread
    dim as string a = "a"
    dim as integer count = 20
    Dim As Any Ptr thread = ThreadCreate(@print_dots, cptr(any ptr, @a), cptr(any ptr, @count))

    '' Work (main thread)
    'print_dots(".")

    '' Wait until other thread has finished, if needed
    Print
    Sleep