主题：调用第三方程序可以多线程不.

全局代码

Public Sub thread_sub1(ByVal obj As Object)
    functions. Execute("多线程操作", obj)
End Sub

内部函数

Do While True
    If vars("队列").Count > 0 Then
        Dim 内容 As String = vars("队列")(0)
        Dim proc As new Process
        proc.File = "notepad"
        proc.Start
        output.show(内容)
        proc.WaitForExit
        vars("队列").RemoveAt(0)
    End If
Loop

调用代码