[كود] توليد ارقام - نسخة قابلة للطباعة

كود :
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