Option Explicit
Dim count1 As String
Dim flag As Integer
Dim count_sheding As Integer
Private Sub Form_Load()
count1 = count_sheding
count_sheding = 60
flag = 1
Timer1.Enabled = True
Timer1.Interval = 1000
Text1.Text = ""
Text5.Text = ""
Text1.Text = count1
Text5.Text = count1
End Sub
Private Sub Timer1_Timer()
Dim count As Integer
count1 = count1 - 1
If (flag = 1) Then
If (((count_sheding / 2 + 5) <= count1) And (count1 <= count_sheding)) Then
Call A 'huangtai1()
ElseIf (((count_sheding / 2 + 4) <= count1) And (count1 < (count_sheding / 2 + 5))) Then
Call B
ElseIf (((count_sheding / 2 + 3) <= count1) And (count1 < (count_sheding / 2 + 4))) Then
Call BB
ElseIf (((count_sheding / 2 + 2) <= count1) And (count1 < (count_sheding / 2 + 3))) Then
Call B
ElseIf (((count_sheding / 2 + 1) <= count1) And (count1 < (count_sheding / 2 + 2))) Then
Call BB
ElseIf (((count_sheding / 2) <= count1) And (count1 < (count_sheding / 2 + 1))) Then
Call B
ElseIf (((count_sheding / 4 + 5) <= count1) And (count1 < (count_sheding / 2))) Then
Call C ' zhuangtai3();
ElseIf (((count_sheding / 4 + 4) <= count1) And (count1 < (count_sheding / 4 + 5))) Then
Call D 'zhuanagtai4()
ElseIf (((count_sheding / 4 + 3) <= count1) And (count1 < (count_sheding / 4 + 4))) Then
Call DD 'zhuangtai44()
ElseIf (((count_sheding / 4 + 2) <= count1) And (count1 < (count_sheding / 4 + 3))) Then
Call D
ElseIf (((count_sheding / 4 + 1) <= count1) And (count1 < (count_sheding / 4 + 2))) Then
Call DD
ElseIf (((count_sheding / 4) <= count1) And (count1 < (count_sheding / 4 + 1))) Then
Call D
ElseIf ((5 <= count1) And (count1 < (count_sheding / 4))) Then
Call E 'zhuangtai5();
ElseIf ((4 <= count1) And (count1 < 5)) Then
Call FF ' zhuangtai6();
ElseIf ((3 <= count1) And (count1 < 4)) Then
Call F 'zhuangtai66();
ElseIf ((2 <= count1) And (count1 < 3)) Then
Call FF
ElseIf ((1 <= count1) And (count1 < 2)) Then
Call F
Else