Search Numbers

[zoneal]

in this program i have to generate 10 random numbers and then search
them for any matches.
this was an old program i wrote and dug it out but i must have screwed
around with it before and stupidly saved it and now it doesnt work...

i used 2 for loops but decided to just put them together.

it keeps saying its found 3 matches (but it hasnt) and displaying the
first 3 numbers generated
any help would be greatfull thanks
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim index, index2, rnd2, match As Integer
Dim list(9) As Integer

match = 0
TextBox1.Clear()
textbox2.clear()
Randomize()

For index = 0 To 9
rnd2 = CInt(Int((10 * Rnd()) + 1))
list(index) = rnd2
TextBox1.Text = TextBox1.Text & list(index) & vbCrLf

For index2 = index To 2
If list(index2) = list(index) Then
TextBox2.Text = TextBox2.Text & list(index) &
vbCrLf
match = match + 1
End If
Next
Next
MessageBox.Show("there were " & match & "matches", "data out",
MessageBoxButtons.OK)
End Sub
End Class