Matematické Fórum

Dobrý den,
Potřebuji naprogramovat program,který mi vypíše čísla od 0 do 999.Zatím jsem napsal toto :
Public Class Form1
    Dim Náhodnépole(0 To 999) As Long
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To UBound(Náhodnépole)
            Náhodnépole(i) = Int(Rnd() * 1000)
            TextBox1.Text = TextBox1.Text & Náhodnépole(i) & vbCrLf
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim i As Integer
        TextBox1.Text = ""
        Array.Sort(Náhodnépole)
        For i = 0 To UBound(Náhodnépole)
            TextBox1.Text = TextBox1.Text & Náhodnépole(i) & vbCrLf

        Next

    End Sub
End Class

Ale nehází mi to všechny čísla
Jak to mám udělat ,aby to bylo 1,2,3,4,5,6, atd.
Děkuji