[ممدوح]

ما ينفع تعريف New Random في نفس الأمر
لازم يتم تعريف New Random خارج حدث الButton مثل

كود :

Dim r As New Random()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Label1.text= ListBox1.Items(r.Next(0, ListBox1.Items.Count))
End Sub