Multiple Queue make them work togetter??

Question

Hello 
i got 2 rows with 15 buttons in eatch + 1 btnadd and 1 btnremove at eatch end of the rows 
when i add.... i add colors backgrounds ... 
9 difrend colors to add 
i got 2 Queues 
im wondering is there any way to make the Qs working togetter.. 
like if i got 2 blue colors in row 1 and 2 blue in row2 it would tell me theres 4 total in label31
Dim Q1 As New Queue(Of Integer)
Dim Q2 As New Queue(Of Integer)
Dim labels1 As New List(Of Label)
Dim labels2 As New List(Of Label)
Dim buttons1 As New List(Of Button)
Dim buttons2 As New List(Of Button)
Dim priority As Integer = 0
Dim itemscount As Integer
labels2.Add(Label31)
labels2.Add(Label32)
labels2.Add(Label33)
labels2.Add(Label34)
labels2.Add(Label35)
labels2.Add(Label36)
labels2.Add(Label37)
labels2.Add(Label38)
labels2.Add(Label39)
labels1.Add(Label31)
labels1.Add(Label32)
labels1.Add(Label33)
labels1.Add(Label34)
labels1.Add(Label35)
labels1.Add(Label36)
labels1.Add(Label37)
labels1.Add(Label38)
labels1.Add(Label39)
buttons2.Add(Button30)
buttons2.Add(Button29)
buttons2.Add(Button28)
buttons2.Add(Button27)
buttons2.Add(Button26)
buttons2.Add(Button25)
buttons2.Add(Button24)
buttons2.Add(Button23)
buttons2.Add(Button22)
buttons2.Add(Button21)
buttons2.Add(Button20)
buttons2.Add(Button19)
buttons2.Add(Button18)
buttons2.Add(Button17)
buttons2.Add(Button16)
buttons1.Add(Button15)
buttons1.Add(Button14)
buttons1.Add(Button13)
buttons1.Add(Button12)
buttons1.Add(Button11)
buttons1.Add(Button10)
buttons1.Add(Button9)
buttons1.Add(Button8)
buttons1.Add(Button7)
buttons1.Add(Button6)
buttons1.Add(Button5)
buttons1.Add(Button4)
buttons1.Add(Button3)
buttons1.Add(Button2)
buttons1.Add(Button1)
Private Sub btnAdd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd1.Click
If Q1.Count < 15 Then
Q1.Enqueue(priority)
showqueue1()
End If
My.Settings.Save()
End Sub
Private Sub btnRemove1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremove1.Click
If Q1.Count > 0 Then
Dim I As Integer = Q1.Dequeue()
showqueue1()
End If
My.Settings.Save()
End Sub
Private Sub btnadd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd2.Click
If Q2.Count < 15 Then
Q2.Enqueue(priority)
showqueue2()
End If
My.Settings.Save()
End Sub
Private Sub btnremove2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremove2.Click
If Q2.Count > 0 Then
Dim I As Integer = Q2.Dequeue()
showqueue2()
End If
My.Settings.Save()
End Sub
Private Sub showqueue1()
Dim B As Integer = 0
For B = 0 To buttons1.Count - 1
buttons1(B).BackColor = Color.White
Next B
B = 0
For Each I As Integer In Q1
Select Case (I)
Case 1 : buttons1(B).BackColor = Color.Blue
Case 2 : buttons1(B).BackColor = Color.Red
Case 3 : buttons1(B).BackColor = Color.Yellow
Case 4 : buttons1(B).BackColor = Color.Brown
Case 5 : buttons1(B).BackColor = Color.Orange
Case 6 : buttons1(B).BackColor = Color.Pink
Case 7 : buttons1(B).BackColor = Color.Black
Case 8 : buttons1(B).BackColor = Color.Green
Case 9 : buttons1(B).BackColor = Color.White
End Select
B += 1
Next
Dim ItemCount(8) As Integer
For Each I As Integer In Q1
ItemCount(I - 1) += 1
Next
For J As Integer = 0 To 8
labels1(J).Text = ItemCount(J)
labels1(J).Text = ItemCount(J)
labels1(J).Text = ItemCount(J)
labels1(J).Text = ItemCount(J)
labels1(J).Text = ItemCount(J)
labels1(J).Text = ItemCount(J)
labels1(J).Text = ItemCount(J)
labels1(J).Text = ItemCount(J)
Next J
End Sub
Private Sub showqueue2()
Dim B As Integer = 0
For B = 0 To buttons2.Count - 1
buttons2(B).BackColor = Color.White
Next B
B = 0
For Each I As Integer In Q2
Select Case (I)
Case 1 : buttons2(B).BackColor = Color.Blue
Case 2 : buttons2(B).BackColor = Color.Red
Case 3 : buttons2(B).BackColor = Color.Yellow
Case 4 : buttons2(B).BackColor = Color.Brown
Case 5 : buttons2(B).BackColor = Color.Orange
Case 6 : buttons2(B).BackColor = Color.Pink
Case 7 : buttons2(B).BackColor = Color.Black
Case 8 : buttons2(B).BackColor = Color.Green
Case 9 : buttons2(B).BackColor = Color.White
End Select
B += 1
Next
Dim ItemCount(8) As Integer
For Each I As Integer In Q2
ItemCount(I - 1) += 1
Next
For J As Integer = 0 To 8
labels2(J).Text = ItemCount(J)
labels2(J).Text = ItemCount(J)
labels2(J).Text = ItemCount(J)
labels2(J).Text = ItemCount(J)
labels2(J).Text = ItemCount(J)
labels2(J).Text = ItemCount(J)
labels2(J).Text = ItemCount(J)
labels2(J).Text = ItemCount(J)
Next J
End Sub
Private Sub Label31_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label31.Click
itemscount = 1
My.Settings.Save()
End Sub
Private Sub Label33_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label33.Click
My.Settings.Save()
itemscount = 3
End Sub
Private Sub Label35_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label35.Click
My.Settings.Save()
itemscount = 5
End Sub
Private Sub Label37_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label37.Click
My.Settings.Save()
itemscount = 7
End Sub
Private Sub Label39_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label39.Click
My.Settings.Save()
End Sub
Private Sub Label32_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label32.Click
itemscount = 2
My.Settings.Save()
End Sub
Private Sub Label34_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label34.Click
My.Settings.Save()
itemscount = 4
End Sub
Private Sub Label36_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label36.Click
My.Settings.Save()
itemscount = 6
End Sub
Private Sub Label38_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Label38.Click
My.Settings.Save()
itemscount = 8
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
priority = 1
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton3.CheckedChanged
priority = 3
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
priority = 2
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton4.CheckedChanged
priority = 4
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton5.CheckedChanged
priority = 5
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton6.CheckedChanged
priority = 6
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton7.CheckedChanged
priority = 7
End Sub
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton8.CheckedChanged
priority = 8
End Sub
Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, e As System.EventArgs) Handles RadioButton9.CheckedChanged
priority = 9
End Sub

Answer 1

i got 2 Queues 
This is the complete code for 2 queues and 3 priorities.  You can extend this to any number of queues and priorities by adding the controls and adjusting the counts.   You can see that the extra code is almost entirely in the setup - this
can be eliminated if you create the controls at runtime.
Public Class Form18
Dim Q1 As New Queue(Of Integer)
Dim Q2 As New Queue(Of Integer)
Dim Buttons1 As New List(Of Button)
Dim Buttons2 As New List(Of Button)
Dim Buttons As New List(Of List(Of Button))
Dim Labels1 As New List(Of Label)
Dim Labels2 As New List(Of Label)
Dim Labels As New List(Of List(Of Label))
Dim LabelsT As New List(Of Label)
Dim Queues As New List(Of Queue(Of Integer))
Dim Priority As Integer = 0
#Region "setup"
Private Sub Form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Buttons1.Add(Button14)
Buttons1.Add(Button13)
Buttons1.Add(Button12)
Buttons1.Add(Button11)
Buttons1.Add(Button10)
Labels1.Add(Label10)
Labels1.Add(Label11)
Labels1.Add(Label12)
Buttons2.Add(Button24)
Buttons2.Add(Button23)
Buttons2.Add(Button22)
Buttons2.Add(Button21)
Buttons2.Add(Button20)
Labels2.Add(Label20)
Labels2.Add(Label21)
Labels2.Add(Label22)
Buttons.Add(Buttons1)
Buttons.Add(Buttons2)
Labels.Add(Labels1)
Labels.Add(Labels2)
LabelsT.Add(LabelT1)
LabelsT.Add(LabelT2)
LabelsT.Add(LabelT3)
Queues.Add(Q1)
Queues.Add(Q2)
btnAdd1.Tag = 0
btnAdd2.Tag = 1
btnRemove1.Tag = 0
btnRemove2.Tag = 1
End Sub
#End Region
Private Sub rbtLow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtLow.CheckedChanged
Priority = 0
End Sub
Private Sub rbtStandard_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtStandard.CheckedChanged
Priority = 1
End Sub
Private Sub rbtUrgent_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtUrgent.CheckedChanged
Priority = 2
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
btnAdd1.Click, _
btnAdd2.Click
Dim Index As Integer = CType(sender, Button).Tag
If Queues(Index).Count < 5 Then
Queues(Index).Enqueue(Priority)
showqueue()
Else
MsgBox("Queue " & (Index + 1).ToString & " is full.")
End If
End Sub
Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
btnRemove1.Click, _
btnRemove2.Click
Dim Index As Integer = CType(sender, Button).Tag
If Queues(Index).Count > 0 Then
Dim I As Integer = Queues(Index).Dequeue()
MsgBox("Item " & I.ToString & " was removed.")
showqueue()
Else
MsgBox("Queue " & (Index + 1).ToString & " is empty.")
End If
End Sub
Private Sub showqueue()
For k As Integer = 0 To Queues.Count - 1
Dim B As Integer = 0
For B = 0 To Buttons(k).Count - 1
Buttons(k)(B).BackColor = Color.White
Next B
Dim Colors() As Color = {Color.Green, Color.Yellow, Color.Red}
B = 0
For Each I As Integer In Queues(k)
Buttons(k)(B).BackColor = Colors(I)
B += 1
Next
Dim ItemCount(2) As Integer '(8)
For Each I As Integer In Queues(k)
ItemCount(I) += 1
Next
For J As Integer = 0 To 2 '8
Labels(k)(J).Text = ItemCount(J)
Next J
Next k
Dim TotalCount(3) As Integer '(14)
For K = 0 To 1 '0 to 14
For Each I As Integer In Queues(K)
TotalCount(I) += 1
Next
Next K
For J As Integer = 0 To 2 '(8)
LabelsT(J).Text = TotalCount(J)
Next J
End Sub
End Class