list data

[ajames]

If List1.List(0) = List1.List(1) And List1.List(1) = List1.List(2) And List1.List(2) = List1.List(3) And List1.List(3) = List1.List(4) Then
fivekind.Enabled = True
End If

In this code, you can see that if five bits of data in a list are the same, a button named "fivekind" is enabled.

This is my problem: how would I get the program to check that only 4 bits of data are the same? I tried it just now and it looked like i needed, if anything, too many lines of code to do that using the method above.

Is there a simpler way of doing this?