[sooriaty03]

تفضل أخي هذا هو الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N1 As Integer
        Dim ListedItemes, ListedPersons As New List(Of String)
        For I = 1 To 21
            For H = 1 To 2
10:
                Application.DoEvents()
                N1 = RandomInteger(1, 43)
                If ListedItemes.IndexOf(N1) > -1 Then
                    GoTo 10
                End If
                ListedItemes.Add(N1)
                ListedPersons.Add(I & "-" & H)
            Next
        Next
        For I = 0 To ListedItemes.Count - 1
            ListView1.Items.Add(ListedPersons.Item(I) & "=" & ListedItemes.Item(I))
        Next
    End Sub
    Private Function RandomInteger(ByVal Lowerbound As Integer, ByVal Upperbound As Integer) As Integer
        Dim Rnd As New Random
        RandomInteger = Rnd.Next(Lowerbound, Upperbound)
    End Function