vende et array

Når programmet startes skal der oprettes et array.
Problemet er at jeg skal vende dette array ved med en knap, men hordan gør jeg ?
Jeg har prøvet lidt, som i kan se her.


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Når programmet starter, fyldes arrayet med 50 tilfældige heltal mellem 1 og 100, og arrayets indhold i en listbox
        Dim i As Integer
        Dim random As New System.Random()
        Dim arr(49) As Integer


        For i = 1 To 49
            arr(i) = random.Next(1, 100)
            ListBox1.Items.Add(arr(i))
        Next

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intTal As Integer
        Dim arr() As Integer

        For Each intTal In arr
            ListBox2.Items.Add(arr(intTal))

        Next
    End Sub