djs1 = 2
Event Form1.button1.Click
If djs1 = 2 Then
djs1 = BeginThread(倒计时1)
End If
djs1 = 1
End Event
Sub 倒计时()
D1 = Form1.djs.text
TracePrint "启动第一个BOSS倒计时"
D1 = D1 * 60
TracePrint D1
gD1 = D1
For D1
gD1 = gD1 - 1
Delay 1000
TracePrint gD1
Next
MsgBox Form1.dt.Text & "刷新了"
djs1 = 2
End Sub
#干货#
