[زكريا النابهي]

قم بكتابة هذا الكود  وقم بأضافة ListBox

   Dim randomnum As New Random


        For i As Int16 = 0 To (c - 1)
start:
            x = randomnum.Next(0, c)
            If (ListBox1.Items.Contains(x)) Then
                GoTo start
            End If
        Next

        ListBox1.Items.Add(x)

        If ListBox1.Items.Count = c Then MessageBox.Show("انتهت أسئلة " & CLevel.Text) : ListBox1.Items.Clear() : Exit Sub




 [url=http://www.mediafire.com/download/ed9n653ah2blhom/WindowsApplication1.rar][/url]