iowalotto.frm

Searches a database of entered lottery numbers and displays results of which tickets won what.

For y = 0 To 10
markhits(y).Caption = "0"
marlohits(y).Caption = "0"
themhits(y).Caption = "0"
ushits(y).Caption = "0"
Next y
For x = 1 To Combosus
If Howmany(x) = 5 And Power(x) = 0 Then ushits(0).Caption = ushits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then ushits(1).Caption = ushits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then ushits(2).Caption = ushits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then ushits(3).Caption = ushits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then ushits(4).Caption = ushits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then ushits(5).Caption = ushits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then ushits(6).Caption = ushits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then ushits(7).Caption = ushits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then ushits(8).Caption = ushits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then ushits(9).Caption = ushits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then ushits(10).Caption = ushits(10).Caption + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Howmany(x) = 5 And Power(x) = 0 Then themhits(0).Caption = themhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then themhits(1).Caption = themhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then themhits(2).Caption = themhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then themhits(3).Caption = themhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then themhits(4).Caption = themhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then themhits(5).Caption = themhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then themhits(6).Caption = themhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then themhits(7).Caption = themhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then themhits(8).Caption = themhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then themhits(9).Caption = themhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then themhits(10).Caption = themhits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Howmany(x) = 5 And Power(x) = 0 Then marlohits(0).Caption = marlohits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then marlohits(1).Caption = marlohits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then marlohits(2).Caption = marlohits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then marlohits(3).Caption = marlohits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then marlohits(4).Caption = marlohits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then marlohits(5).Caption = marlohits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then marlohits(6).Caption = marlohits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then marlohits(7).Caption = marlohits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then marlohits(8).Caption = marlohits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then marlohits(9).Caption = marlohits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then marlohits(10).Caption = marlohits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Howmany(x) = 5 And Power(x) = 0 Then markhits(0).Caption = markhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then markhits(1).Caption = markhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then markhits(2).Caption = markhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then markhits(3).Caption = markhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then markhits(4).Caption = markhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then markhits(5).Caption = markhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then markhits(6).Caption = markhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then markhits(7).Caption = markhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then markhits(8).Caption = markhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then markhits(9).Caption = markhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then markhits(10).Caption = markhits(10).Caption + 1
Next x


' get forth number
Fourthnumber = InputBox("Enter fourth number(1-40)", "Input Mode", 1, 1800, 5000)
Label4(3).Caption = Str(Fourthnumber)
For x = 1 To Combos
For y = 1 To 5
If Mid$(Data(x), (2 * y) - 1, 2) = Fourthnumber Then
    Howmany(x) = Howmany(x) + 1
End If
Next y
If Howmany(x) <> 4 Then Winners(x) = 0
Next x
winners1.Clear
Left2 = 0
For x = 1 To Combos
If Winners(x) = 1 Then winners1.AddItem Mid$(Data(x), 1, 2) + " " + Mid$(Data(x), 3, 2) + " " + Mid$(Data(x), 5, 2) + " " + Mid$(Data(x), 7, 2) + " " + Mid$(Data(x), 9, 2) + " " + Mid$(Data$(x), 11, 2) + " " + Str(x): Left2 = Left2 + 1
Next x
tickets.Caption = Str(Left2)

' update board
Markk = 0
Marloo = 0
Themm = 0
Uss = 0
For x = 1 To Combosus
If Winners(x) = 1 Then Uss = Uss + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Winners(x) = 1 Then Themm = Themm + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Winners(x) = 1 Then Marloo = Marloo + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Winners(x) = 1 Then Markk = Markk + 1
Next x
them.Caption = Str(Themm)
us.Caption = Str(Uss)
marlo.Caption = Str(Marloo)
mark.Caption = Str(Markk)

' update grid
For y = 0 To 10
markhits(y).Caption = "0"
marlohits(y).Caption = "0"
themhits(y).Caption = "0"
ushits(y).Caption = "0"
Next y
For x = 1 To Combosus
If Howmany(x) = 5 And Power(x) = 0 Then ushits(0).Caption = ushits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then ushits(1).Caption = ushits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then ushits(2).Caption = ushits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then ushits(3).Caption = ushits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then ushits(4).Caption = ushits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then ushits(5).Caption = ushits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then ushits(6).Caption = ushits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then ushits(7).Caption = ushits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then ushits(8).Caption = ushits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then ushits(9).Caption = ushits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then ushits(10).Caption = ushits(10).Caption + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Howmany(x) = 5 And Power(x) = 0 Then themhits(0).Caption = themhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then themhits(1).Caption = themhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then themhits(2).Caption = themhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then themhits(3).Caption = themhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then themhits(4).Caption = themhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then themhits(5).Caption = themhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then themhits(6).Caption = themhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then themhits(7).Caption = themhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then themhits(8).Caption = themhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then themhits(9).Caption = themhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then themhits(10).Caption = themhits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Howmany(x) = 5 And Power(x) = 0 Then marlohits(0).Caption = marlohits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then marlohits(1).Caption = marlohits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then marlohits(2).Caption = marlohits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then marlohits(3).Caption = marlohits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then marlohits(4).Caption = marlohits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then marlohits(5).Caption = marlohits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then marlohits(6).Caption = marlohits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then marlohits(7).Caption = marlohits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then marlohits(8).Caption = marlohits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then marlohits(9).Caption = marlohits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then marlohits(10).Caption = marlohits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Howmany(x) = 5 And Power(x) = 0 Then markhits(0).Caption = markhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then markhits(1).Caption = markhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then markhits(2).Caption = markhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then markhits(3).Caption = markhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then markhits(4).Caption = markhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then markhits(5).Caption = markhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then markhits(6).Caption = markhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then markhits(7).Caption = markhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then markhits(8).Caption = markhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then markhits(9).Caption = markhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then markhits(10).Caption = markhits(10).Caption + 1
Next x


' get fifth number
Fifthnumber = InputBox("Enter fifth number(1-40)", "Input Mode", 1, 1800, 5000)
Label4(4).Caption = Str(Fifthnumber)
For x = 1 To Combos
For y = 1 To 5
If Mid$(Data(x), (2 * y) - 1, 2) = Fifthnumber Then
    Howmany(x) = Howmany(x) + 1
End If
Next y
If Howmany(x) <> 5 Then Winners(x) = 0
Next x
winners1.Clear
Left2 = 0
For x = 1 To Combos
If Winners(x) = 1 Then winners1.AddItem Mid$(Data(x), 1, 2) + " " + Mid$(Data(x), 3, 2) + " " + Mid$(Data(x), 5, 2) + " " + Mid$(Data(x), 7, 2) + " " + Mid$(Data(x), 9, 2) + " " + Mid$(Data$(x), 11, 2) + " " + Str(x): Left2 = Left2 + 1
Next x
tickets.Caption = Str(Left2)

' update board
Markk = 0
Marloo = 0
Themm = 0
Uss = 0
For x = 1 To Combosus
If Winners(x) = 1 Then Uss = Uss + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Winners(x) = 1 Then Themm = Themm + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Winners(x) = 1 Then Marloo = Marloo + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Winners(x) = 1 Then Markk = Markk + 1
Next x
them.Caption = Str(Themm)
us.Caption = Str(Uss)
marlo.Caption = Str(Marloo)
mark.Caption = Str(Markk)

' update grid
For y = 0 To 10
markhits(y).Caption = "0"
marlohits(y).Caption = "0"
themhits(y).Caption = "0"
ushits(y).Caption = "0"
Next y
For x = 1 To Combosus
If Howmany(x) = 5 And Power(x) = 0 Then ushits(0).Caption = ushits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then ushits(1).Caption = ushits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then ushits(2).Caption = ushits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then ushits(3).Caption = ushits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then ushits(4).Caption = ushits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then ushits(5).Caption = ushits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then ushits(6).Caption = ushits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then ushits(7).Caption = ushits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then ushits(8).Caption = ushits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then ushits(9).Caption = ushits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then ushits(10).Caption = ushits(10).Caption + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Howmany(x) = 5 And Power(x) = 0 Then themhits(0).Caption = themhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then themhits(1).Caption = themhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then themhits(2).Caption = themhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then themhits(3).Caption = themhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then themhits(4).Caption = themhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then themhits(5).Caption = themhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then themhits(6).Caption = themhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then themhits(7).Caption = themhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then themhits(8).Caption = themhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then themhits(9).Caption = themhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then themhits(10).Caption = themhits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Howmany(x) = 5 And Power(x) = 0 Then marlohits(0).Caption = marlohits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then marlohits(1).Caption = marlohits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then marlohits(2).Caption = marlohits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then marlohits(3).Caption = marlohits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then marlohits(4).Caption = marlohits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then marlohits(5).Caption = marlohits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then marlohits(6).Caption = marlohits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then marlohits(7).Caption = marlohits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then marlohits(8).Caption = marlohits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then marlohits(9).Caption = marlohits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then marlohits(10).Caption = marlohits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Howmany(x) = 5 And Power(x) = 0 Then markhits(0).Caption = markhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then markhits(1).Caption = markhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then markhits(2).Caption = markhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then markhits(3).Caption = markhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then markhits(4).Caption = markhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then markhits(5).Caption = markhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then markhits(6).Caption = markhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then markhits(7).Caption = markhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then markhits(8).Caption = markhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then markhits(9).Caption = markhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then markhits(10).Caption = markhits(10).Caption + 1
Next x


' get power ball
Powernumber = InputBox("Enter power ball number(1-40)", "Input Mode", 1, 1800, 5000)
Label4(5).Caption = Str(Powernumber)
For x = 1 To Combos
If Mid$(Data(x), 11, 2) = Powernumber Then
    Power(x) = 1
End If
If Power(x) <> 1 Then Winners(x) = 0
Next x
winners1.Clear
Left2 = 0
For x = 1 To Combos
If Winners(x) = 1 Then winners1.AddItem Mid$(Data(x), 1, 2) + " " + Mid$(Data(x), 3, 2) + " " + Mid$(Data(x), 5, 2) + " " + Mid$(Data(x), 7, 2) + " " + Mid$(Data(x), 9, 2) + " " + Mid$(Data$(x), 11, 2) + " " + Str(x): Left2 = Left2 + 1
Next x
tickets.Caption = Str(Left2)

' update board
Markk = 0
Marloo = 0
Themm = 0
Uss = 0
For x = 1 To Combosus
If Winners(x) = 1 Then Uss = Uss + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Winners(x) = 1 Then Themm = Themm + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Winners(x) = 1 Then Marloo = Marloo + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Winners(x) = 1 Then Markk = Markk + 1
Next x
them.Caption = Str(Themm)
us.Caption = Str(Uss)
marlo.Caption = Str(Marloo)
mark.Caption = Str(Markk)

' update grid
For y = 0 To 10
markhits(y).Caption = "0"
marlohits(y).Caption = "0"
themhits(y).Caption = "0"
ushits(y).Caption = "0"
Next y
For x = 1 To Combosus
If Howmany(x) = 5 And Power(x) = 0 Then ushits(0).Caption = ushits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then ushits(1).Caption = ushits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then ushits(2).Caption = ushits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then ushits(3).Caption = ushits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then ushits(4).Caption = ushits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then ushits(5).Caption = ushits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then ushits(6).Caption = ushits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then ushits(7).Caption = ushits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then ushits(8).Caption = ushits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then ushits(9).Caption = ushits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then ushits(10).Caption = ushits(10).Caption + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Howmany(x) = 5 And Power(x) = 0 Then themhits(0).Caption = themhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then themhits(1).Caption = themhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then themhits(2).Caption = themhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then themhits(3).Caption = themhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then themhits(4).Caption = themhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then themhits(5).Caption = themhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then themhits(6).Caption = themhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then themhits(7).Caption = themhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then themhits(8).Caption = themhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then themhits(9).Caption = themhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then themhits(10).Caption = themhits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Howmany(x) = 5 And Power(x) = 0 Then marlohits(0).Caption = marlohits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then marlohits(1).Caption = marlohits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then marlohits(2).Caption = marlohits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then marlohits(3).Caption = marlohits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then marlohits(4).Caption = marlohits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then marlohits(5).Caption = marlohits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then marlohits(6).Caption = marlohits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then marlohits(7).Caption = marlohits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then marlohits(8).Caption = marlohits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then marlohits(9).Caption = marlohits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then marlohits(10).Caption = marlohits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Howmany(x) = 5 And Power(x) = 0 Then markhits(0).Caption = markhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then markhits(1).Caption = markhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then markhits(2).Caption = markhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then markhits(3).Caption = markhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then markhits(4).Caption = markhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then markhits(5).Caption = markhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then markhits(6).Caption = markhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then markhits(7).Caption = markhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then markhits(8).Caption = markhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then markhits(9).Caption = markhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then markhits(10).Caption = markhits(10).Caption + 1
Next x
 
'announce winner
If Themm = 1 Then WINNERFINAL.Caption = "IBP": Label1.Caption = "THE WINNER IS:"
If Uss = 1 Then WINNERFINAL.Caption = "WORK": Label1.Caption = "THE WINNER IS:"
If Marloo = 1 Then WINNERFINAL.Caption = "MARLO": Label1.Caption = "THE WINNER IS:"
If Markk = 1 Then WINNERFINAL.Caption = "MARK-N-MOLLY HURRAY": Label1.Caption = "THE WINNER IS:"
If WINNERFINAL.Caption = "" Then WINNERFINAL.Caption = "NOT US": Label1.Caption = "THE WINNER IS:"
End Sub