Private Sub BoxSelected(ByVal SelectedCombo As ComboBox, ByVal clist As List(Of ComboBox))
Dim a As Integer
Dim startValues As New List(Of String)
Dim ComboList As New List(Of Object)
For Each Item As Object In clist
If Item.Tag <> SelectedCombo.Tag Then
ComboList.Add(Item)
startValues.Add(Item.SelectedItem)
Item.Items.Clear()
End If
Next
For Each Item As String In sList
If Item <> SelectedCombo.SelectedItem And Not startValues.Contains(Item) Then
For Each Obj As Object In ComboList
Obj.Items.Add(Item)
Next
End If
Next
sChanged = False
a = 0
For Each Item As String In startValues
If Item <> "" Then ComboList(a).Items.Add(Item)
ComboList(a).SelectedItem = startValues(a)
a += 1
Next
End Sub