mh = 1
Case 1: al22(0).Visible = True
al22(1).Visible = False
mh = 0
End Select
End Sub
Private Sub Timer17_Timer()
Select Case nk
Case 0: al23.Visible = False
nk = 1
Case 1: al23.Visible = True
nk = 0
End Select
End Sub
Private Sub Timer18_Timer()
Dim i As Integer
z8 = z8 + 1
If ml > 2 Then
For nl = 0 To 2
m23(nl).Visible = False
ml = 0
Next nl
Exit Sub
End If
m23(ml).Visible = True
ml = ml + 1
Select Case z8
Case 0:
img9(0).Visible = True
img9(1).Visible = False
Case 1:
img9(0).Visible = False
img9(1).Visible = True
Case 2:
img9(0).Visible = True
img9(1).Visible = False
Case 3:
img9(0).Visible = False
img9(1).Visible = True
Case 4:
img9(0).Visible = True
img9(1).Visible = False
Case 5:
img9(0).Visible = False
img9(1).Visible = True
End Select
If z8 = 5 Then
Timer19.Enabled = True
Timer18.Enabled = False
For i = 0 To 2
m23(i).Visible = False
Next i
img9(0).Visible = False
img9(1).Visible = False
End If
End Sub
Private Sub Timer19_Timer()
Dim i As Integer
z9 = z9 + 1
If mq > 5 Then
For nq = 0 To 5
m24(nq).Visible = False
mq = 0
Next nq
Exit Sub
End If
m24(mq).Visible = True
mq = mq + 1
Select Case z9
Case 0:
img10(0).Visible = True
img10(1).Visible = False
Case 1:
img10(0).Visible = False
img10(1).Visible = True
Case 2:
img10(0).Visible = True
img10(1).Visible = False
Case 3:
img10(0).Visible = False
img10(1).Visible = True
Case 4:
img10(0).Visible = True
img10(1).Visible = False
Case 5:
img10(0).Visible = False
img10(1).Visible = True
Case 6:
img10(0).Visible = True
img10(1).Visible = False
Case 7:
img10(0).Visible = False
img10(1).Visible = True
Case 8:
img10(0).Visible = True
img10(1).Visible = False
End Select
If z9 = 8 Then
Timer19.Enabled = False
Timer20.Enabled = True
Timer8.Enabled = False
img6(0).Visible = False
img6(1).Visible = False
For i = 0 To 5
m15(i).Visible = False
m24(i).Visible = False
Next i
img10(0).Visible = False
img10(1).Visible = False
End If
End Sub
Private Sub Timer20_Timer()
Dim i As Integer
z10 = z10 + 1
If mr > 5 Then
For nr = 0 To 5
m25(nr).Visible = False
m16(nr).Visible = False
mr = 0
Next nr
Exit Sub
End If
m25(mr).Visible = True
m16(mr).Visible = True
mr = mr + 1
Select Case z10
Case 0:
img11(0).Visible = True
img11(1).Visible = False
Case 1:
img11(0).Visible = False
img11(1).Visible = True
Case 2:
img11(0).Visible = True
img11(1).Visible = False
Case 3:
img11(0).Visible = False
img11(1).Visible = True
Case 4:
img11(0).Visible = True
img11(1).Visible = False
Case 5:
img11(0).Visible = False
img11(1).Visible = True
Case 6:
img11(0).Visible = True
img11(1).Visible = False
Case 7:
img11(0).Visible = False
img11(1).Visible = True
Case 8:
img11(0).Visible = True
img11(1).Visible = False
End Select
If z10 = 8 Then
Timer20.Enabled = False
Timer21.Enabled = True
Timer23.Enabled = True
cmdtd.Enabled = True
For i = 0 To 5
m25(i).Visible = False
m16(i).Visible = False
Next i
img11(0).Visible = False
img11(1).Visible = False
End If
End Sub
Private Sub Timer21_Timer()
If mw > 11 Then
For nw = 0 To 11
m7(nw).Visible = False
mw = 0
Next nw
Exit Sub
End If
m7(mw).Visible = True
mw = mw + 1
If z13 < 9 Then
z13 = z13 + 1
If u = 0 Then
img12(0).Visible = True
img12(1).Visible = False
u = 1
Else: img12(1).Visible = True
img12(0).Visible = False
u = 0
End If
End If
If z13 = 9 Then
img12(1).Visible = False
img12(0).Visible = False
End If
End Sub
Private Sub Timer22_Timer()
z11 = z11 + 1
If my > 5 Then
For ny = 0 To 5
mn1(ny).Visible = False
my = 0
Next ny
Exit Sub
End If
mn1(my).Visible = True
my = my + 1
If z11 = 8 Then
Timer22.Enabled = False
Timer24.Enabled = True
For i = 0 To 5
mn1(i).Visible = False
Next i
End If
End Sub
Private Sub Timer23_Timer()
If mu > 11 Then
For nu = 0 To 11
m8(nu).Visible = False
mu = 0
Next nu
Exit Sub
End If
m8(mu).Visible = True
mu = mu + 1
img15.Visible = True
End Sub
Private Sub Timer24_Timer()
Dim i As Integer
z12 = z12 + 1
If mo > 5 Then
For no = 0 To 5
mn2(no).Visible = False
mo = 0
Next no
Exit Sub
End If
mn2(mo).Visible = True
mo = mo + 1
If z12 = 8 Then
Timer23.Enabled = False
img15.Visible = False
For i = 0 To 11
m8(i).Visible = False
Next i
Timer24.Enabled = False
For i = 0 To 2
mn2(i).Visible = False
Next i
For i = 0 To 11
m8(i).Visible = False
Next i
Timer15.Enabled = False
Timer16.Enabled = False
Timer17.Enabled = False
For i = 0 To 1
al22(i).Visible = False
Next
al21.Visible = False
al23.Visible = False
End If
End Sub
Private Sub Timer3_Timer()
Dim k As Integer
z1 = z1 + 1
If ma > 2 Then
For na = 0 To 2
m1(na).Visible = False
ma = 0
Next na
Exit Sub
End If
m1(ma).Visible = True
ma = ma + 1
Select Case z1
Case 0:
img1(0).Visible = True
img1(1).Visible = False
Case 1:
img1(0).Visible = False
img1(1).Visible = True
Case 2:
img1(0).Visible = True
img1(1).Visible = False
Case 3:
img1(0).Visible = False
img1(1).Visible = True
Case 4:
img1(0).Visible = True
img1(1).Visible = False
Case 5:
img1(0).Visible = False
img1(1).Visible = True
End Select
If z1 = 5 Then
z1 = 0
ma = 0
Timer3.Enabled = False
Timer4.Enabled = True
For t1 = 0 To 2
m1(t1).Visible = False
Next t1
img1(0).Visible = False
img1(1).Visible = False
End If
End Sub
Private Sub Timer4_Timer()
Dim i As Integer
z2 = z2 + 1
If mb > 2 Then
For nb = 0 To 2
m11(nb).Visible = False
mb = 0
Next nb
Exit Sub
End If
m11(mb).Visible = True
mb = mb + 1
Select Case z2
Case 0:
img2(0).Visible = True
img2(1).Visible = False
Case 1:
img2(0).Visible = False
img2(1).Visible = True
Case 2:
img2(0).Visible = True
img2(1).Visible = False
Case 3:
img2(0).Visible = False
img2(1).Visible = True
Case 4:
img2(0).Visible = True
img2(1).Visible = False
Case 5:
img2(0).Visible = False
img2(1).Visible = True
End Select
If z2 = 5 Then
Timer5.Enabled = True
Timer4.Enabled = False
For i = 0 To 2
m11(i).Visible = False
Next i
img2(0).Visible = False
img2(1).Visible = False
End If
End Sub
Private Sub Timer5_Timer()
Dim i As Integer
z3 = z3 + 1
If mc > 5 Then
For nc = 0 To 5
m12(nc).Visible = False
mc = 0
Next nc
Exit Sub
End If
m12(mc).Visible = True
mc = mc + 1
Select Case z3
Case 0:
img3(0).Visible = True
img3(1).Visible = False
Case 1:
img3(0).Visible = False
img3(1).Visible = True
Case 2:
img3(0).Visible = True
img3(1).Visible = False
Case 3:
img3(0).Visible = False
img3(1).Visible = True
Case 4:
img3(0).Visible = True
img3(1).Visible = False
Case 5:
img3(0).Visible = False
img3(1).Visible = True
Case 6:
img3(0).Visible = True
img3(1).Visible = False
Case 7:
img3(0).Visible = False
img3(1).Visible = True
Case 8:
img3(0).Visible = True
img3(1).Visible = False
End Select
If z3 = 8 Then
Timer6.Enabled = True
Timer5.Enabled = False
For i = 0 To 5
m12(i).Visible = False
Next i
img3(0).Visible = False
img3(1).Visible = False
End If
End Sub
Private Sub Timer6_Timer()
Dim i As Integer
z4 = z4 + 1
If md > 5 Then
For nd = 0 To 5
m13(nd).Visible = False
md = 0
Next nd
Exit Sub
End If
m13(md).Visible = True
md = md + 1
Select Case z4
Case 0:
img4(0).Visible = True
img4(1).Visible = False
Case 1:
img4(0).Visible = False
img4(1).Visible = True
Case 2:
img4(0).Visible = True
img4(1).Visible = False
Case 3:
img4(0).Visible = False
img4(1).Visible = True
Case 4:
img4(0).Visible = True
img4(1).Visible = False
Case 5:
img4(0).Visible = False
img4(1).Visible = True
Case 6:
img4(0).Visible = True
img4(1).Visible = False
Case 7:
img4(0).Visible = False
img4(1).Visible = True
Case 8:
img4(0).Visible = True
img4(1).Visible = False
End Select
If z4 = 8 Then
Timer6.Enabled = False
Timer7.Enabled = True
For i = 0 To 5
m13(i).Visible = False
Next i
img4(0).Visible = False
img4(1).Visible = False
End If
End Sub
Private Sub Timer7_Timer()
Dim i As Integer
z5 = z5 + 1
If mf > 5 Then
For nf = 0 To 5
m14(nf).Visible = False
mf = 0
Next nf
Exit Sub
End If
m14(mf).Visible = True
mf = mf + 1
Select Case z5
Case 0:
img5(0).Visible = True
img5(1).Visible = False
Case 1:
img5(0).Visible = False
img5(1).Visible = True
Case 2:
img5(0).Visible = True
img5(1).Visible = False
Case 3:
img5(0).Visible = False
img5(1).Visible = True
Case 4:
img5(0).Visible = True
img5(1).Visible = False
Case 5:
img5(0).Visible = False
img5(1).Visible = True
Case 6:
img5(0).Visible = True
img5(1).Visible = False
Case 7:
img5(0).Visible = False
img5(1).Visible = True
Case 8:
img5(0).Visible = True
img5(1).Visible = False
End Select
If z5 = 8 Then
Timer7.Enabled = False
Timer8.Enabled = True
Timer9.Enabled = True
For i = 0 To 5
m14(i).Visible = False
Next i
img5(0).Visible = False
img5(1).Visible = False
End If
End Sub
Private Sub Timer8_Timer()
If mg > 5 Then
For ng = 0 To 5
m15(ng).Visible = False
mg = 0
Next ng
Exit Sub
End If
m15(mg).Visible = True
mg = mg + 1
If h = 0 Then
img6(0).Visible = True
img6(1).Visible = False
h = 1
Else: img6(1).Visible = True
img6(0).Visible = False
h = 0
End If
End Sub
Private Sub Timer9_Timer()
Dim i As Integer
z6 = z6 + 1
If mi > 5 Then
For ni = 0 To 5
m21(ni).Visible = False
mi = 0
Next ni
Exit Sub
End If
m21(mi).Visible = True
mi = mi + 1
Select Case z6
Case 0:
img7(0).Visible = True
img7(1).Visible = False
Case 1:
img7(0).Visible = False
img7(1).Visible = True
Case 2:
img7(0).Visible = True
img7(1).Visible = False
Case 3:
img7(0).Visible = False
img7(1).Visible = True
Case 4:
img7(0).Visible = True
img7(1).Visible = False
Case 5:
img7(0).Visible = False
img7(1).Visible = True
Case 6:
img7(0).Visible = True
img7(1).Visible = False
Case 7:
img7(0).Visible = False
img7(1).Visible = True
Case 8:
img7(0).Visible = True
img7(1).Visible = False
End Select
If z6 = 8 Then
If opt(0).Value = True Then
Timer15.Enabled = True
End If
If opt(1).Value = True Then
Timer16.Enabled = True
End If
If opt(2).Value = True Then
Timer17.Enabled = True
End If
Timer14.Enabled = True
Timer9.Enabled = False
For i = 0 To 5
m21(i).Visible = False
Next i
img7(0).Visible = False
img7(1).Visible = False
End If
End Sub