線程2=BeginThread(時間)
Sub 程序
//妳的代碼
End Sub
Sub 時間
Rem w
s1= Plugin.Sys.GetTime()
Rem q
Delay 1000
s2= Plugin.Sys.GetTime()
s3=(s2-s1)/60000
If s3>=20 Then
StopThread 線程1
BeginThread 程序
Goto w
Else
Goto q
End If