Sub Thread(t As Any Ptr)
    Do
        Shell "ls > tmp"
    Loop
End Sub

Var thread_ptr=ThreadCreate(@Thread)

Do
    Sleep 1,1
Loop Until Inkey=Chr(27)