Sub 程序1
//这里写程序1执行的代码
End Sub
Sub 程序2
//这里写程序2执行的代码
End Sub
Sub 程序3
//这里写程序3执行的代码
End Sub
Sub 程序4
//这里写程序4执行的代码
End Sub
ID = BeginThread(程序1)
Delay t1 //程序1执行时间
StopThread ID
ID = BeginThread(程序2)
Delay t2 //程序2执行时间
StopThread ID
ID = BeginThread(程序3)
Delay t3 //程序3执行时间
StopThread ID
ID = BeginThread(程序4)
Delay t4 //程序4执行时间
StopThread ID