Buenas.
Si te refieres a que no tengan el mismo texto. Puedes usar lo siguiente:
(los combos tienen que estar en una matriz, con indices del 0 a 15 en este caso)
Private Sub Command1_Click()
Dim a As Integer, b As Integer
For a = 0 To 14 Step 1
For b = 15 To (a + 1) Step -1
If Combo1(a).Text = Combo1(b).Text Then
MsgBox (a + 1) & " = " & (b + 1)
End If
Next b
Next a
End Sub
Si quieres saber si el numero del elemento es el mismo, cambias la propiedad Text por ListIndex
Saludos
