Private Sub Command1_Click(Index As Integer)
If Label1.Caption = b Then
Label1.Caption = c
Command1(Index).BackColor = vbRed
Else
Label1.Caption = b
Command1(Index).BackColor = vbBlue
End If
For I = 0 To 63
If Command1(I).Value = True Then
If Command1(Index).BackColor = vbRed Then
r(I) = True
Else
bb(I) = True
End If
End If
Next
If r(0) = True And r(1) = True And r(3) = True And r(6) = True And r(10) = True And r(15) = True And r(21) = True And r(28) = True Then
If Command1(0).BackColor = vbRed And Command1(1).BackColor = vbRed And Command1(3).BackColor = vbRed And Command1(6).BackColor = vbRed And Command1(10).BackColor = vbRed And Command1(15).BackColor = vbRed And Command1(21).BackColor = vbRed And Command1(28).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(0) = True And bb(1) = True And bb(3) = True And bb(6) = True And bb(10) = True And bb(15) = t And bb(21) = True And bb(28) = True Then
If Command1(0).BackColor = vbBlue And Command1(1).BackColor = vbBlue And Command1(3).BackColor = vbBlue And Command1(6).BackColor = vbBlue And Command1(28).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(2) = True And r(4) = True And r(7) = True And r(11) = True And r(16) = True And r(22) = True And r(29) = True And r(36) = True Then
If Command1(2).BackColor = vbRed And Command1(4).BackColor = vbRed And Command1(7).BackColor = vbRed And Command1(11).BackColor = vbRed And Command1(16).BackColor = vbRed And Command1(22).BackColor = vbRed And Command1(29).BackColor = vbRed And Command1(36).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(2) = True And bb(4) = True And bb(7) = True And bb(11) = True And bb(16) = True And bb(22) = t And bb(29) = True And bb(36) = True Then
If Command1(2).BackColor = vbBlue And Command1(4).BackColor = vbBlue And Command1(7).BackColor = vbBlue And Command1(11).BackColor = vbBlue And Command1(16).BackColor = vbBlue And Command1(22).BackColor = vbBlue And Command1(29).BackColor = vbBlue And Command1(36).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(5) = True And r(8) = True And r(12) = True And r(17) = True And r(23) = True And r(30) = True And r(37) = True And r(43) = True Then
If Command1(5).BackColor = vbRed And Command1(8).BackColor = vbRed And Command1(12).BackColor = vbRed And Command1(17).BackColor = vbRed And Command1(23).BackColor = vbRed And Command1(30).BackColor = vbRed And Command1(37).BackColor = vbRed And Command1(43).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(5) = True And bb(8) = True And bb(12) = True And bb(17) = True And bb(23) = True And bb(30) = True And bb(37) = True And bb(43) = True Then
If Command1(5).BackColor = vbBlue And Command1(8).BackColor = vbBlue And Command1(12).BackColor = vbBlue And Command1(17).BackColor = vbBlue And Command1(23).BackColor = vbBlue And Command1(30).BackColor = vbBlue And Command1(37).BackColor = vbBlue And Command1(43).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(9) = True And r(13) = True And r(18) = True And r(24) = True And r(31) = True And r(38) = True And r(44) = True And r(49) = True Then
If Command1(9).BackColor = vbRed And Command1(13).BackColor = vbRed And Command1(18).BackColor = vbRed And Command1(24).BackColor = vbRed And Command1(31).BackColor = vbRed And Command1(38).BackColor = vbRed And Command1(44).BackColor = vbRed And Command1(49).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(9) = True And bb(13) = True And bb(18) = True And bb(24) = True And bb(31) = True And bb(38) = True And bb(44) = True And bb(49) = True Then
If Command1(9).BackColor = vbBlue And Command1(13).BackColor = vbBlue And Command1(18).BackColor = vbBlue And Command1(24).BackColor = vbBlue And Command1(31).BackColor = vbBlue And Command1(38).BackColor = vbBlue And Command1(44).BackColor = vbBlue And Command1(49).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(14) = True And r(19) = True And r(25) = True And r(32) = True And r(39) = True And r(45) = True And r(50) = True And r(54) = True Then
If Command1(14).BackColor = vbRed And Command1(19).BackColor = vbRed And Command1(25).BackColor = vbRed And Command1(32).BackColor = vbRed And Command1(39).BackColor = vbRed And Command1(45).BackColor = vbRed And Command1(50).BackColor = vbRed And Command1(54).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(14) = True And bb(19) = True And bb(25) = True And bb(32) = True And bb(39) = True And bb(45) = True And bb(50) = True And bb(54) = True Then
If Command1(14).BackColor = vbBlue And Command1(19).BackColor = vbBlue And Command1(25).BackColor = vbBlue And Command1(32).BackColor = vbBlue And Command1(39).BackColor = vbBlue And Command1(45).BackColor = vbBlue And Command1(50).BackColor = vbBlue And Command1(54).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(20) = True And r(26) = True And r(33) = True And r(40) = True And r(46) = True And r(51) = True And r(55) = True And r(58) = True Then
If Command1(20).BackColor = vbRed And Command1(26).BackColor = vbRed And Command1(33).BackColor = vbRed And Command1(40).BackColor = vbRed And Command1(46).BackColor = vbRed And Command1(51).BackColor = vbRed And Command1(55).BackColor = vbRed And Command1(58).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(20) = True And bb(26) = True And bb(33) = True And bb(40) = True And bb(46) = True And bb(51) = True And bb(55) = True And bb(58) = True Then
If Command1(20).BackColor = vbBlue And Command1(26).BackColor = vbBlue And Command1(33).BackColor = vbBlue And Command1(40).BackColor = vbBlue And Command1(46).BackColor = vbBlue And Command1(51).BackColor = vbBlue And Command1(55).BackColor = vbBlue And Command1(58).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(27) = True And r(34) = True And r(41) = True And r(47) = True And r(52) = True And r(56) = True And r(59) = True And r(61) = True Then
If Command1(27).BackColor = vbRed And Command1(34).BackColor = vbRed And Command1(41).BackColor = vbRed And Command1(47).BackColor = vbRed And Command1(52).BackColor = vbRed And Command1(56).BackColor = vbRed And Command1(59).BackColor = vbRed And Command1(61).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(27) = True And bb(34) = True And bb(41) = True And bb(47) = True And bb(52) = True And bb(56) = True And bb(59) = True And bb(61) = True Then
If Command1(27).BackColor = vbBlue And Command1(34).BackColor = vbBlue And Command1(41).BackColor = vbBlue And Command1(47).BackColor = vbBlue And Command1(52).BackColor = vbBlue And Command1(56).BackColor = vbBlue And Command1(59).BackColor = vbBlue And Command1(61).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(35) = True And r(42) = True And r(48) = True And r(53) = True And r(57) = True And r(60) = True And r(62) = True And r(63) = True Then
If Command1(35).BackColor = vbRed And Command1(42).BackColor = vbRed And Command1(48).BackColor = vbRed And Command1(53).BackColor = vbRed And Command1(57).BackColor = vbRed And Command1(60).BackColor = vbRed And Command1(62).BackColor = vbRed And Command1(63).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(35) = True And bb(42) = True And bb(48) = True And bb(53) = True And bb(57) = True And bb(60) = True And bb(62) = True And bb(63) = True Then
If Command1(35).BackColor = vbBlue And Command1(42).BackColor = vbBlue And Command1(48).BackColor = vbBlue And Command1(53).BackColor = vbBlue And Command1(57).BackColor = vbBlue And Command1(60).BackColor = vbBlue And Command1(62).BackColor = vbBlue And Command1(63).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(0) = True And r(2) = True And r(5) = True And r(9) = True And r(14) = True And r(20) = True And r(27) = True And r(35) = True Then
If Command1(0).BackColor = vbRed And Command1(2).BackColor = vbRed And Command1(5).BackColor = vbRed And Command1(9).BackColor = vbRed And Command1(14).BackColor = vbRed And Command1(20).BackColor = vbRed And Command1(27).BackColor = vbRed And Command1(35).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(0) = True And bb(2) = True And bb(5) = True And bb(9) = True And bb(14) = True And bb(20) = True And bb(27) = True And bb(35) = True Then
If Command1(0).BackColor = vbBlue And Command1(2).BackColor = vbBlue And Command1(5).BackColor = vbBlue And Command1(9).BackColor = vbBlue And Command1(14).BackColor = vbBlue And Command1(20).BackColor = vbBlue And Command1(27).BackColor = vbBlue And Command1(35).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(1) = True And r(4) = True And r(8) = True And r(13) = True And r(19) = True And r(26) = True And r(34) = True And r(42) = True Then
If Command1(1).BackColor = vbRed And Command1(4).BackColor = vbRed And Command1(8).BackColor = vbRed And Command1(13).BackColor = vbRed And Command1(19).BackColor = vbRed And Command1(26).BackColor = vbRed And Command1(34).BackColor = vbRed And Command1(42).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(1) = True And bb(4) = True And bb(8) = True And bb(13) = True And bb(19) = True And bb(26) = True And bb(34) = True And bb(42) = True Then
If Command1(1).BackColor = vbBlue And Command1(4).BackColor = vbBlue And Command1(8).BackColor = vbBlue And Command1(13).BackColor = vbBlue And Command1(19).BackColor = vbBlue And Command1(26).BackColor = vbBlue And Command1(34).BackColor = vbBlue And Command1(42).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(3) = True And r(7) = True And r(12) = True And r(18) = True And r(25) = True And r(33) = True And r(41) = True And r(48) = True Then
If Command1(3).BackColor = vbRed And Command1(7).BackColor = vbRed And Command1(12).BackColor = vbRed And Command1(18).BackColor = vbRed And Command1(25).BackColor = vbRed And Command1(33).BackColor = vbRed And Command1(41).BackColor = vbRed And Command1(48).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(3) = True And bb(7) = True And bb(12) = True And bb(18) = True And bb(25) = True And bb(33) = True And bb(41) = True And bb(48) = True Then
If Command1(3).BackColor = vbBlue And Command1(7).BackColor = vbBlue And Command1(12).BackColor = vbBlue And Command1(18).BackColor = vbBlue And Command1(25).BackColor = vbBlue And Command1(33).BackColor = vbBlue And Command1(41).BackColor = vbBlue And Command1(48).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(6) = True And r(11) = True And r(17) = True And r(24) = True And r(32) = True And r(40) = True And r(47) = True And r(53) = True Then
If Command1(6).BackColor = vbRed And Command1(11).BackColor = vbRed And Command1(17).BackColor = vbRed And Command1(24).BackColor = vbRed And Command1(32).BackColor = vbRed And Command1(40).BackColor = vbRed And Command1(47).BackColor = vbRed And Command1(53).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(6) = True And bb(11) = True And bb(17) = True And bb(24) = True And bb(32) = True And bb(40) = True And bb(47) = True And bb(53) = True Then
If Command1(6).BackColor = vbBlue And Command1(11).BackColor = vbBlue And Command1(17).BackColor = vbBlue And Command1(24).BackColor = vbBlue And Command1(32).BackColor = vbBlue And Command1(40).BackColor = vbBlue And Command1(47).BackColor = vbBlue And Command1(53).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(10) = True And r(16) = True And r(23) = True And r(31) = True And r(39) = True And r(46) = True And r(52) = True And r(57) = True Then
If Command1(10).BackColor = vbRed And Command1(16).BackColor = vbRed And Command1(23).BackColor = vbRed And Command1(31).BackColor = vbRed And Command1(39).BackColor = vbRed And Command1(46).BackColor = vbRed And Command1(52).BackColor = vbRed And Command1(57).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(10) = True And bb(16) = True And bb(23) = True And bb(31) = True And bb(39) = True And bb(46) = True And bb(52) = True And bb(57) = True Then
If Command1(10).BackColor = vbBlue And Command1(16).BackColor = vbBlue And Command1(23).BackColor = vbBlue And Command1(31).BackColor = vbBlue And Command1(39).BackColor = vbBlue And Command1(46).BackColor = vbBlue And Command1(52).BackColor = vbBlue And Command1(57).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(15) = True And r(22) = True And r(30) = True And r(38) = True And r(45) = True And r(51) = True And r(56) = True And r(60) = True Then
If Command1(15).BackColor = vbRed And Command1(22).BackColor = vbRed And Command1(30).BackColor = vbRed And Command1(38).BackColor = vbRed And Command1(45).BackColor = vbRed And Command1(51).BackColor = vbRed And Command1(56).BackColor = vbRed And Command1(60).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(15) = True And bb(22) = True And bb(30) = True And bb(38) = True And bb(45) = True And bb(51) = True And bb(56) = True And bb(60) = True Then
If Command1(15).BackColor = vbBlue And Command1(22).BackColor = vbBlue And Command1(30).BackColor = vbBlue And Command1(38).BackColor = vbBlue And Command1(45).BackColor = vbBlue And Command1(51).BackColor = vbBlue And Command1(56).BackColor = vbBlue And Command1(60).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(21) = True And r(29) = True And r(37) = True And r(44) = True And r(50) = True And r(55) = True And r(59) = True And r(62) = True Then
If Command1(21).BackColor = vbRed And Command1(29).BackColor = vbRed And Command1(37).BackColor = vbRed And Command1(44).BackColor = vbRed And Command1(50).BackColor = vbRed And Command1(55).BackColor = vbRed And Command1(59).BackColor = vbRed And Command1(62).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(21) = True And bb(29) = True And bb(37) = True And bb(44) = True And bb(50) = True And bb(55) = True And bb(59) = True And bb(62) = True Then
If Command1(21).BackColor = vbBlue And Command1(29).BackColor = vbBlue And Command1(37).BackColor = vbBlue And Command1(44).BackColor = vbBlue And Command1(50).BackColor = vbBlue And Command1(55).BackColor = vbBlue And Command1(59).BackColor = vbBlue And Command1(62).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(28) = True And r(36) = True And r(43) = True And r(49) = True And r(54) = True And r(58) = True And r(61) = True And r(63) = True Then
If Command1(28).BackColor = vbRed And Command1(36).BackColor = vbRed And Command1(43).BackColor = vbRed And Command1(49).BackColor = vbRed And Command1(54).BackColor = vbRed And Command1(58).BackColor = vbRed And Command1(61).BackColor = vbRed And Command1(63).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(28) = True And bb(36) = True And bb(43) = True And bb(49) = True And bb(54) = True And bb(58) = True And bb(61) = True And bb(63) = True Then
If Command1(28).BackColor = vbBlue And Command1(36).BackColor = vbBlue And Command1(43).BackColor = vbBlue And Command1(49).BackColor = vbBlue And Command1(54).BackColor = vbBlue And Command1(58).BackColor = vbBlue And Command1(61).BackColor = vbBlue And Command1(63).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(0) = True And r(4) = True And r(12) = True And r(24) = True And r(39) = True And r(51) = True And r(59) = True And r(63) = True Then
If Command1(0).BackColor = vbRed And Command1(4).BackColor = vbRed And Command1(12).BackColor = vbRed And Command1(24).BackColor = vbRed And Command1(39).BackColor = vbRed And Command1(51).BackColor = vbRed And Command1(59).BackColor = vbRed And Command1(63).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(0) = True And bb(4) = True And bb(12) = True And bb(24) = True And bb(39) = True And bb(51) = True And bb(59) = True And bb(63) = True Then
If Command1(0).BackColor = vbBlue And Command1(4).BackColor = vbBlue And Command1(12).BackColor = vbBlue And Command1(24).BackColor = vbBlue And Command1(39).BackColor = vbBlue And Command1(51).BackColor = vbBlue And Command1(59).BackColor = vbBlue And Command1(63).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If r(28) = True And r(29) = True And r(30) = True And r(31) = True And r(32) = True And r(33) = True And r(34) = True And r(35) = True Then
If Command1(28).BackColor = vbRed And Command1(29).BackColor = vbRed And Command1(30).BackColor = vbRed And Command1(31).BackColor = vbRed And Command1(32).BackColor = vbRed And Command1(33).BackColor = vbRed And Command1(34).BackColor = vbRed And Command1(35).BackColor = vbRed Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
If bb(28) = True And bb(29) = True And bb(30) = True And bb(31) = True And bb(32) = True And bb(33) = True And bb(34) = True And bb(35) = True Then
If Command1(28).BackColor = vbBlue And Command1(29).BackColor = vbBlue And Command1(30).BackColor = vbBlue And Command1(31).BackColor = vbBlue And Command1(32).BackColor = vbBlue And Command1(33).BackColor = vbBlue And Command1(34).BackColor = vbBlue And Command1(35).BackColor = vbBlue Then
If Label1.Caption = b Then
Label1.Caption = c
Else
Label1.Caption = b
End If
Form3.Show
If Label1.Caption = Form6.Label1(1).Caption Then
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label2(1).Caption
Else
Form3.Label2.Caption = Form3.Label2.Caption + Form6.Label1(1).Caption
End If
Form1.Hide
End If
End If
'If (r(0) = True And r(1) = True And r(3) = True And r(6) = True And r(10) = True And r(15) = True And r(21) = True And r(28) = True) And (r(2) = True And r(4) = True And r(7) = True And r(11) = True And r(16) = True And r(22) = True And r(29) = True And r(36) = True) And (r(5) = True And r(8) = True And r(12) = True And r(17) = True And r(23) = True And r(30) = True And r(37) = True And r(43) = True) And (r(9) = True And r(13) = True And r(18) = True And r(24) = True And r(31) = True And r(38) = True And r(44) = True And r(49) = True) And (r(14) = True And r(19) = True And r(25) = True And r(32) = True And r(39) = True And r(45) = True And r(50) = True And r(54) = True) And (r(20) = True And r(26) = True And r(33) = True And r(40) = True And r(46) = True And r(51) = True And r(55) = True And r(58) = True) And (r(27) = True And r(34) = True And r(41) = True And r(47) = True And r(52) = True And r(56) = True And r(59) = True And r(61) = True) and
'(r(35) = True And r(42) = True And r(48) = True And r(53) = True And r(57) = True And r(60) = True And r(62) = True And r(63) = True) and (r(0) = True And r(2) = True And r(5) = True And r(9) = True And r(14) = True And r(20) = True And r(27) = True And r(35) = True) and (r(1) = True And r(4) = True And r(8) = True And r(13) = True And r(19) = True And r(26) = True And r(34) = True And r(42) = True) and (r(3) = True And r(7) = True And r(12) = True And r(18) = True And r(25) = True And r(33) = True And r(41) = True And r(48) = True) and (r(6) = True And r(11) = True And r(17) = True And r(24) = True And r(32) = True And r(40) = True And r(47) = True And r(53) = True) and (r(10) = True And r(16) = True And r(23) = True And r(31) = True And r(39) = True And r(46) = True And r(52) = True And r(57) = True) and (r(15) = True And r(22) = True And r(30) = True And r(38) = True And r(45) = True And r(51) = True And r(56) = True And r(60) = True) and
'(r(21) = True And r(29) = True And r(37) = True And r(44) = True And r(50) = True And r(55) = True And r(59) = True And r(62) = True) and (r(28) = True And r(36) = True And r(43) = True And r(49) = True And r(54) = True And r(58) = True And r(61) = True And r(63) = True) and (r(0) = True And r(4) = True And r(12) = True And r(24) = True And r(39) = True And r(51) = True And r(59) = True And r(63) = True) and (r(28) = True And r(29) = True And r(30) = True And r(31) = True And r(32) = True And r(33) = True And r(34) = True And r(35) = True) Then
'Form8.Show
'End If
'For i = 0 To 63
'If r(i) = True And Command1(Index).BackColor <> vbWhite Then
'Form8.Show
'End If
'Next
End Sub
Private Sub Form_Load()
b = Form6.Label1(1).Caption
c = Form6.Label2(1).Caption
If Form6.Label1(0).Caption >= Form6.Label2(0).Caption Then
Label1.Caption = b
Else
Label1.Caption = c
End If
End Sub
