[adham2016]

يمكنك بتغيير بسيط في كود الأخ سعود

كود :

Dim r As New Random
Dim p As Integer = r.Next(0, dt.Rows.Count - 1)

مع ملاحظة أن تعريف New Random يتم في سطر مستقل ولا يدمج