[beep]

تفضل اخي

كود :

Dim Rnd As Random = New Random
        Dim List2 As New ArrayList
        Do While List2.Count < 1000
            Dim Num As Integer = Rnd.Next(0, 1000)
            If Not List2.Contains(Num) Then List2.Add(Num)
        Loop
        Dim save As New SaveFileDialog
        save.Title = "Select Path"
        save.Filter = "TextFile(.txt)|*.txt"
        save.FileName = "rondomNumers"
        If save.ShowDialog = DialogResult.OK Then
            Using W As IO.StreamWriter = IO.File.AppendText(save.FileName)
                For i As Integer = 0 To 999
                    W.WriteLine(String.Format("{0:000}", List2.Item(i)))
                Next
                W.Close()
            End Using
        End If