'############################################################################## 'If you are using this then please keep this in. 'This code was created for open source by Sam Bennett (c) 2007 '############################################################################## If FirstNumber = 1 Then Me.shpL1.FillColor = &H8000000B Me.shpL1.BackColor = &H8000000B Me.shpL2.FillColor = vbBlue Me.shpL2.BackColor = vbBlue Me.shpL3.FillColor = vbBlue Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = &H8000000B Me.shpL4.BackColor = &H8000000B Me.shpL5.FillColor = &H8000000B Me.shpL5.BackColor = &H8000000B Me.shpL6.FillColor = &H8000000B Me.shpL6.BackColor = &H8000000B Me.shpL7.FillColor = &H8000000B Me.shpL7.FillColor = &H8000000B ElseIf FirstNumber = 2 Then Me.shpL1.FillColor = vbBlue Me.shpL1.BackColor = vbBlue Me.shpL2.FillColor = vbBlue Me.shpL2.BackColor = &H8000000B Me.shpL3.FillColor = &H8000000B Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = vbBlue Me.shpL4.BackColor = vbBlue Me.shpL5.FillColor = vbBlue Me.shpL5.BackColor = vbBlue Me.shpL6.FillColor = vbBlue Me.shpL6.BackColor = vbBlue Me.shpL7.FillColor = &H8000000B Me.shpL7.BackColor = &H8000000B ElseIf FirstNumber = 3 Then Me.shpL1.FillColor = vbBlue Me.shpL1.BackColor = vbBlue Me.shpL2.FillColor = vbBlue Me.shpL2.BackColor = vbBlue Me.shpL3.FillColor = vbBlue Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = vbBlue Me.shpL4.BackColor = vbBlue Me.shpL5.FillColor = &H8000000B Me.shpL5.BackColor = &H8000000B Me.shpL6.FillColor = vbBlue Me.shpL6.BackColor = vbBlue Me.shpL7.FillColor = &H8000000B Me.shpL7.BackColor = &H8000000B ElseIf FirstNumber = 4 Then Me.shpL1.FillColor = &H8000000B Me.shpL1.BackColor = &H8000000B Me.shpL2.FillColor = vbBlue Me.shpL2.BackColor = vbBlue Me.shpL3.FillColor = vbBlue Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = &H8000000B Me.shpL4.BackColor = &H8000000B Me.shpL5.FillColor = &H8000000B Me.shpL5.BackColor = &H8000000B Me.shpL6.FillColor = vbBlue Me.shpL6.BackColor = vbBlue Me.shpL7.FillColor = vbBlue Me.shpL7.BackColor = vbBlue ElseIf FirstNumber = 5 Then Me.shpL1.FillColor = vbBlue Me.shpL1.BackColor = vbBlue Me.shpL2.FillColor = &H8000000B Me.shpL2.BackColor = &H8000000B Me.shpL3.FillColor = vbBlue Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = vbBlue Me.shpL4.BackColor = vbBlue Me.shpL5.FillColor = &H8000000B Me.shpL5.BackColor = &H8000000B Me.shpL6.FillColor = vbBlue Me.shpL6.BackColor = vbBlue Me.shpL7.FillColor = vbBlue Me.shpL7.BackColor = vbBlue ElseIf FirstNumber = 6 Then Me.shpL1.FillColor = vbBlue Me.shpL1.BackColor = vbBlue Me.shpL2.FillColor = &H8000000B Me.shpL2.BackColor = &H8000000B Me.shpL3.FillColor = vbBlue Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = vbBlue Me.shpL4.BackColor = vbBlue Me.shpL5.FillColor = vbBlue Me.shpL5.BackColor = vbBlue Me.shpL6.FillColor = vbBlue Me.shpL6.BackColor = vbBlue Me.shpL7.FillColor = vbBlue Me.shpL7.BackColor = vbBlue ElseIf FirstNumber = 7 Then Me.shpL1.FillColor = vbBlue Me.shpL1.BackColor = vbBlue Me.shpL2.FillColor = vbBlue Me.shpL2.BackColor = vbBlue Me.shpL3.FillColor = vbBlue Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = &H8000000B Me.shpL4.BackColor = &H8000000B Me.shpL5.FillColor = &H8000000B Me.shpL5.BackColor = &H8000000B Me.shpL6.FillColor = &H8000000B Me.shpL6.BackColor = &H8000000B Me.shpL7.FillColor = &H8000000B Me.shpL7.BackColor = &H8000000B ElseIf FirstNumber = 8 Then Me.shpL1.FillColor = vbBlue Me.shpL1.BackColor = vbBlue Me.shpL2.FillColor = vbBlue Me.shpL2.BackColor = vbBlue Me.shpL3.FillColor = vbBlue Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = vbBlue Me.shpL4.BackColor = vbBlue Me.shpL5.FillColor = vbBlue Me.shpL5.BackColor = vbBlue Me.shpL6.FillColor = vbBlue Me.shpL6.BackColor = vbBlue Me.shpL7.FillColor = vbBlue Me.shpL7.BackColor = vbBlue ElseIf FirstNumber = 9 Then Me.shpL1.FillColor = vbBlue Me.shpL1.BackColor = vbBlue Me.shpL2.FillColor = vbBlue Me.shpL2.BackColor = vbBlue Me.shpL3.FillColor = vbBlue Me.shpL3.BackColor = vbBlue Me.shpL4.FillColor = &H8000000B Me.shpL4.BackColor = &H8000000B Me.shpL5.FillColor = &H8000000B Me.shpL5.BackColor = &H8000000B Me.shpL6.FillColor = vbBlue Me.shpL6.BackColor = vbBlue Me.shpL7.FillColor = vbBlue Me.shpL7.BackColor = vbBlue ElseIf FirstNumber = 0 Then shpL1.FillColor = vbBlue shpL1.BackColor = vbBlue shpL2.FillColor = vbBlue shpL2.BackColor = vbBlue shpL3.FillColor = vbBlue shpL3.BackColor = vbBlue shpL4.FillColor = vbBlue shpL4.BackColor = vbBlue shpL6.FillColor = &H80000000 shpL6.BackColor = &H80000000 shpL5.FillColor = vbBlue shpL5.BackColor = vbBlue shpL7.FillColor = vbBlue shpL7.BackColor = vbBlue End If If SecondNumber = 1 Then Me.shpC1.FillColor = &H8000000B Me.shpC1.BackColor = &H8000000B Me.shpC2.FillColor = vbBlue Me.shpC2.BackColor = vbBlue Me.shpC3.FillColor = vbBlue Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = &H8000000B Me.shpC4.BackColor = &H8000000B Me.shpC5.FillColor = &H8000000B Me.shpC5.BackColor = &H8000000B Me.shpC6.FillColor = &H8000000B Me.shpC6.BackColor = &H8000000B Me.shpC7.FillColor = &H8000000B Me.shpC7.FillColor = &H8000000B ElseIf SecondNumber = 2 Then Me.shpC1.FillColor = vbBlue Me.shpC1.BackColor = vbBlue Me.shpC2.FillColor = vbBlue Me.shpC2.BackColor = &H8000000B Me.shpC3.FillColor = &H8000000B Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = vbBlue Me.shpC4.BackColor = vbBlue Me.shpC5.FillColor = vbBlue Me.shpC5.BackColor = vbBlue Me.shpC6.FillColor = vbBlue Me.shpC6.BackColor = vbBlue Me.shpC7.FillColor = &H8000000B Me.shpC7.BackColor = &H8000000B ElseIf SecondNumber = 3 Then Me.shpC1.FillColor = vbBlue Me.shpC1.BackColor = vbBlue Me.shpC2.FillColor = vbBlue Me.shpC2.BackColor = vbBlue Me.shpC3.FillColor = vbBlue Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = vbBlue Me.shpC4.BackColor = vbBlue Me.shpC5.FillColor = &H8000000B Me.shpC5.BackColor = &H8000000B Me.shpC6.FillColor = vbBlue Me.shpC6.BackColor = vbBlue Me.shpC7.FillColor = &H8000000B Me.shpC7.BackColor = &H8000000B ElseIf SecondNumber = 4 Then Me.shpC1.FillColor = &H8000000B Me.shpC1.BackColor = &H8000000B Me.shpC2.FillColor = vbBlue Me.shpC2.BackColor = vbBlue Me.shpC3.FillColor = vbBlue Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = &H8000000B Me.shpC4.BackColor = &H8000000B Me.shpC5.FillColor = &H8000000B Me.shpC5.BackColor = &H8000000B Me.shpC6.FillColor = vbBlue Me.shpC6.BackColor = vbBlue Me.shpC7.FillColor = vbBlue Me.shpC7.BackColor = vbBlue ElseIf SecondNumber = 5 Then Me.shpC1.FillColor = vbBlue Me.shpC1.BackColor = vbBlue Me.shpC2.FillColor = &H8000000B Me.shpC2.BackColor = &H8000000B Me.shpC3.FillColor = vbBlue Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = vbBlue Me.shpC4.BackColor = vbBlue Me.shpC5.FillColor = &H8000000B Me.shpC5.BackColor = &H8000000B Me.shpC6.FillColor = vbBlue Me.shpC6.BackColor = vbBlue Me.shpC7.FillColor = vbBlue Me.shpC7.BackColor = vbBlue ElseIf SecondNumber = 6 Then Me.shpC1.FillColor = vbBlue Me.shpC1.BackColor = vbBlue Me.shpC2.FillColor = &H8000000B Me.shpC2.BackColor = &H8000000B Me.shpC3.FillColor = vbBlue Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = vbBlue Me.shpC4.BackColor = vbBlue Me.shpC5.FillColor = vbBlue Me.shpC5.BackColor = vbBlue Me.shpC6.FillColor = vbBlue Me.shpC6.BackColor = vbBlue Me.shpC7.FillColor = vbBlue Me.shpC7.BackColor = vbBlue ElseIf SecondNumber = 7 Then Me.shpC1.FillColor = vbBlue Me.shpC1.BackColor = vbBlue Me.shpC2.FillColor = vbBlue Me.shpC2.BackColor = vbBlue Me.shpC3.FillColor = vbBlue Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = &H8000000B Me.shpC4.BackColor = &H8000000B Me.shpC5.FillColor = &H8000000B Me.shpC5.BackColor = &H8000000B Me.shpC6.FillColor = &H8000000B Me.shpC6.BackColor = &H8000000B Me.shpC7.FillColor = &H8000000B Me.shpC7.BackColor = &H8000000B ElseIf SecondNumber = 8 Then Me.shpC1.FillColor = vbBlue Me.shpC1.BackColor = vbBlue Me.shpC2.FillColor = vbBlue Me.shpC2.BackColor = vbBlue Me.shpC3.FillColor = vbBlue Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = vbBlue Me.shpC4.BackColor = vbBlue Me.shpC5.FillColor = vbBlue Me.shpC5.BackColor = vbBlue Me.shpC6.FillColor = vbBlue Me.shpC6.BackColor = vbBlue Me.shpC7.FillColor = vbBlue Me.shpC7.BackColor = vbBlue ElseIf SecondNumber = 9 Then Me.shpC1.FillColor = vbBlue Me.shpC1.BackColor = vbBlue Me.shpC2.FillColor = vbBlue Me.shpC2.BackColor = vbBlue Me.shpC3.FillColor = vbBlue Me.shpC3.BackColor = vbBlue Me.shpC4.FillColor = &H8000000B Me.shpC4.BackColor = &H8000000B Me.shpC5.FillColor = &H8000000B Me.shpC5.BackColor = &H8000000B Me.shpC6.FillColor = vbBlue Me.shpC6.BackColor = vbBlue Me.shpC7.FillColor = vbBlue Me.shpC7.BackColor = vbBlue ElseIf SecondNumber = 0 Then shpC1.FillColor = vbBlue shpC1.BackColor = vbBlue shpC2.FillColor = vbBlue shpC2.BackColor = vbBlue shpC3.FillColor = vbBlue shpC3.BackColor = vbBlue shpC4.FillColor = vbBlue shpC4.BackColor = vbBlue shpC6.FillColor = &H80000000 shpC6.BackColor = &H80000000 shpC5.FillColor = vbBlue shpC5.BackColor = vbBlue shpC7.FillColor = vbBlue shpC7.BackColor = vbBlue End If If ThirdNumber = 1 Then Me.shpM1.FillColor = &H8000000B Me.shpM1.BackColor = &H8000000B Me.shpM2.FillColor = vbBlue Me.shpM2.BackColor = vbBlue Me.shpM3.FillColor = vbBlue Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = &H8000000B Me.shpM4.BackColor = &H8000000B Me.shpM5.FillColor = &H8000000B Me.shpM5.BackColor = &H8000000B Me.shpM6.FillColor = &H8000000B Me.shpM6.BackColor = &H8000000B Me.shpM7.FillColor = &H8000000B Me.shpM7.FillColor = &H8000000B ElseIf ThirdNumber = 2 Then Me.shpM1.FillColor = vbBlue Me.shpM1.BackColor = vbBlue Me.shpM2.FillColor = vbBlue Me.shpM2.BackColor = &H8000000B Me.shpM3.FillColor = &H8000000B Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = vbBlue Me.shpM4.BackColor = vbBlue Me.shpM5.FillColor = vbBlue Me.shpM5.BackColor = vbBlue Me.shpM6.FillColor = vbBlue Me.shpM6.BackColor = vbBlue Me.shpM7.FillColor = &H8000000B Me.shpM7.BackColor = &H8000000B ElseIf ThirdNumber = 3 Then Me.shpM1.FillColor = vbBlue Me.shpM1.BackColor = vbBlue Me.shpM2.FillColor = vbBlue Me.shpM2.BackColor = vbBlue Me.shpM3.FillColor = vbBlue Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = vbBlue Me.shpM4.BackColor = vbBlue Me.shpM5.FillColor = &H8000000B Me.shpM5.BackColor = &H8000000B Me.shpM6.FillColor = vbBlue Me.shpM6.BackColor = vbBlue Me.shpM7.FillColor = &H8000000B Me.shpM7.BackColor = &H8000000B ElseIf ThirdNumber = 4 Then Me.shpM1.FillColor = &H8000000B Me.shpM1.BackColor = &H8000000B Me.shpM2.FillColor = vbBlue Me.shpM2.BackColor = vbBlue Me.shpM3.FillColor = vbBlue Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = &H8000000B Me.shpM4.BackColor = &H8000000B Me.shpM5.FillColor = &H8000000B Me.shpM5.BackColor = &H8000000B Me.shpM6.FillColor = vbBlue Me.shpM6.BackColor = vbBlue Me.shpM7.FillColor = vbBlue Me.shpM7.BackColor = vbBlue ElseIf ThirdNumber = 5 Then Me.shpM1.FillColor = vbBlue Me.shpM1.BackColor = vbBlue Me.shpM2.FillColor = &H8000000B Me.shpM2.BackColor = &H8000000B Me.shpM3.FillColor = vbBlue Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = vbBlue Me.shpM4.BackColor = vbBlue Me.shpM5.FillColor = &H8000000B Me.shpM5.BackColor = &H8000000B Me.shpM6.FillColor = vbBlue Me.shpM6.BackColor = vbBlue Me.shpM7.FillColor = vbBlue Me.shpM7.BackColor = vbBlue ElseIf ThirdNumber = 6 Then Me.shpM1.FillColor = vbBlue Me.shpM1.BackColor = vbBlue Me.shpM2.FillColor = &H8000000B Me.shpM2.BackColor = &H8000000B Me.shpM3.FillColor = vbBlue Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = vbBlue Me.shpM4.BackColor = vbBlue Me.shpM5.FillColor = vbBlue Me.shpM5.BackColor = vbBlue Me.shpM6.FillColor = vbBlue Me.shpM6.BackColor = vbBlue Me.shpM7.FillColor = vbBlue Me.shpM7.BackColor = vbBlue ElseIf ThirdNumber = 7 Then Me.shpM1.FillColor = vbBlue Me.shpM1.BackColor = vbBlue Me.shpM2.FillColor = vbBlue Me.shpM2.BackColor = vbBlue Me.shpM3.FillColor = vbBlue Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = &H8000000B Me.shpM4.BackColor = &H8000000B Me.shpM5.FillColor = &H8000000B Me.shpM5.BackColor = &H8000000B Me.shpM6.FillColor = &H8000000B Me.shpM6.BackColor = &H8000000B Me.shpM7.FillColor = &H8000000B Me.shpM7.BackColor = &H8000000B ElseIf ThirdNumber = 8 Then Me.shpM1.FillColor = vbBlue Me.shpM1.BackColor = vbBlue Me.shpM2.FillColor = vbBlue Me.shpM2.BackColor = vbBlue Me.shpM3.FillColor = vbBlue Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = vbBlue Me.shpM4.BackColor = vbBlue Me.shpM5.FillColor = vbBlue Me.shpM5.BackColor = vbBlue Me.shpM6.FillColor = vbBlue Me.shpM6.BackColor = vbBlue Me.shpM7.FillColor = vbBlue Me.shpM7.BackColor = vbBlue ElseIf ThirdNumber = 9 Then Me.shpM1.FillColor = vbBlue Me.shpM1.BackColor = vbBlue Me.shpM2.FillColor = vbBlue Me.shpM2.BackColor = vbBlue Me.shpM3.FillColor = vbBlue Me.shpM3.BackColor = vbBlue Me.shpM4.FillColor = &H8000000B Me.shpM4.BackColor = &H8000000B Me.shpM5.FillColor = &H8000000B Me.shpM5.BackColor = &H8000000B Me.shpM6.FillColor = vbBlue Me.shpM6.BackColor = vbBlue Me.shpM7.FillColor = vbBlue Me.shpM7.BackColor = vbBlue ElseIf ThirdNumber = 0 Then shpM1.FillColor = vbBlue shpM1.BackColor = vbBlue shpM2.FillColor = vbBlue shpM2.BackColor = vbBlue shpM3.FillColor = vbBlue shpM3.BackColor = vbBlue shpM4.FillColor = vbBlue shpM4.BackColor = vbBlue shpM6.FillColor = &H80000000 shpM6.BackColor = &H80000000 shpM5.FillColor = vbBlue shpM5.BackColor = vbBlue shpM7.FillColor = vbBlue shpM7.BackColor = vbBlue End If If FourthNumber = 1 Then Me.shpR1.FillColor = &H8000000B Me.shpR1.BackColor = &H8000000B Me.shpR2.FillColor = vbBlue Me.shpR2.BackColor = vbBlue Me.shpR3.FillColor = vbBlue Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = &H8000000B Me.shpR4.BackColor = &H8000000B Me.shpR5.FillColor = &H8000000B Me.shpR5.BackColor = &H8000000B Me.shpR6.FillColor = &H8000000B Me.shpR6.BackColor = &H8000000B Me.shpR7.FillColor = &H8000000B Me.shpR7.FillColor = &H8000000B ElseIf FourthNumber = 2 Then Me.shpR1.FillColor = vbBlue Me.shpR1.BackColor = vbBlue Me.shpR2.FillColor = vbBlue Me.shpR2.BackColor = &H8000000B Me.shpR3.FillColor = &H8000000B Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = vbBlue Me.shpR4.BackColor = vbBlue Me.shpR5.FillColor = vbBlue Me.shpR5.BackColor = vbBlue Me.shpR6.FillColor = vbBlue Me.shpR6.BackColor = vbBlue Me.shpR7.FillColor = &H8000000B Me.shpR7.BackColor = &H8000000B ElseIf FourthNumber = 3 Then Me.shpR1.FillColor = vbBlue Me.shpR1.BackColor = vbBlue Me.shpR2.FillColor = vbBlue Me.shpR2.BackColor = vbBlue Me.shpR3.FillColor = vbBlue Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = vbBlue Me.shpR4.BackColor = vbBlue Me.shpR5.FillColor = &H8000000B Me.shpR5.BackColor = &H8000000B Me.shpR6.FillColor = vbBlue Me.shpR6.BackColor = vbBlue Me.shpR7.FillColor = &H8000000B Me.shpR7.BackColor = &H8000000B ElseIf FourthNumber = 4 Then Me.shpR1.FillColor = &H8000000B Me.shpR1.BackColor = &H8000000B Me.shpR2.FillColor = vbBlue Me.shpR2.BackColor = vbBlue Me.shpR3.FillColor = vbBlue Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = &H8000000B Me.shpR4.BackColor = &H8000000B Me.shpR5.FillColor = &H8000000B Me.shpR5.BackColor = &H8000000B Me.shpR6.FillColor = vbBlue Me.shpR6.BackColor = vbBlue Me.shpR7.FillColor = vbBlue Me.shpR7.BackColor = vbBlue ElseIf FourthNumber = 5 Then Me.shpR1.FillColor = vbBlue Me.shpR1.BackColor = vbBlue Me.shpR2.FillColor = &H8000000B Me.shpR2.BackColor = &H8000000B Me.shpR3.FillColor = vbBlue Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = vbBlue Me.shpR4.BackColor = vbBlue Me.shpR5.FillColor = &H8000000B Me.shpR5.BackColor = &H8000000B Me.shpR6.FillColor = vbBlue Me.shpR6.BackColor = vbBlue Me.shpR7.FillColor = vbBlue Me.shpR7.BackColor = vbBlue ElseIf FourthNumber = 6 Then Me.shpR1.FillColor = vbBlue Me.shpR1.BackColor = vbBlue Me.shpR2.FillColor = &H8000000B Me.shpR2.BackColor = &H8000000B Me.shpR3.FillColor = vbBlue Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = vbBlue Me.shpR4.BackColor = vbBlue Me.shpR5.FillColor = vbBlue Me.shpR5.BackColor = vbBlue Me.shpR6.FillColor = vbBlue Me.shpR6.BackColor = vbBlue Me.shpR7.FillColor = vbBlue Me.shpR7.BackColor = vbBlue ElseIf FourthNumber = 7 Then Me.shpR1.FillColor = vbBlue Me.shpR1.BackColor = vbBlue Me.shpR2.FillColor = vbBlue Me.shpR2.BackColor = vbBlue Me.shpR3.FillColor = vbBlue Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = &H8000000B Me.shpR4.BackColor = &H8000000B Me.shpR5.FillColor = &H8000000B Me.shpR5.BackColor = &H8000000B Me.shpR6.FillColor = &H8000000B Me.shpR6.BackColor = &H8000000B Me.shpR7.FillColor = &H8000000B Me.shpR7.BackColor = &H8000000B ElseIf FourthNumber = 8 Then Me.shpR1.FillColor = vbBlue Me.shpR1.BackColor = vbBlue Me.shpR2.FillColor = vbBlue Me.shpR2.BackColor = vbBlue Me.shpR3.FillColor = vbBlue Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = vbBlue Me.shpR4.BackColor = vbBlue Me.shpR5.FillColor = vbBlue Me.shpR5.BackColor = vbBlue Me.shpR6.FillColor = vbBlue Me.shpR6.BackColor = vbBlue Me.shpR7.FillColor = vbBlue Me.shpR7.BackColor = vbBlue ElseIf FourthNumber = 9 Then Me.shpR1.FillColor = vbBlue Me.shpR1.BackColor = vbBlue Me.shpR2.FillColor = vbBlue Me.shpR2.BackColor = vbBlue Me.shpR3.FillColor = vbBlue Me.shpR3.BackColor = vbBlue Me.shpR4.FillColor = &H8000000B Me.shpR4.BackColor = &H8000000B Me.shpR5.FillColor = &H8000000B Me.shpR5.BackColor = &H8000000B Me.shpR6.FillColor = vbBlue Me.shpR6.BackColor = vbBlue Me.shpR7.FillColor = vbBlue Me.shpR7.BackColor = vbBlue ElseIf FourthNumber = 0 Then shpR1.FillColor = vbBlue shpR1.BackColor = vbBlue shpR2.FillColor = vbBlue shpR2.BackColor = vbBlue shpR3.FillColor = vbBlue shpR3.BackColor = vbBlue shpR4.FillColor = vbBlue shpR4.BackColor = vbBlue shpR6.FillColor = &H80000000 shpR6.BackColor = &H80000000 shpR5.FillColor = vbBlue shpR5.BackColor = vbBlue shpR7.FillColor = vbBlue shpR7.BackColor = vbBlue End If