[atefkhalf2004]

Dim array As String() = New String(DataGridView1.Rows.Count - 1) {}
For i As Integer = 0 To DataGridView1.Rows.Count - 1
array(i) = DataGridView1.Rows(i).Cells("tname").Value
Next
For i = 1 To 3

Dim arrNames As Array = array
Dim rand As New Random
Dim rndIndex As Integer = rand.Next(0, arrNames.Length)


Dim rndName As String = arrNames(rndIndex)
If array.Contains(rndName) Then

Else

MsgBox(rndName)
End If


Next

لم تضبط معي
برجاء التصويب
شكرا