Dim aux As Integer
        Dim cont As Integer
        Dim vector(0 To 9) As Integer
        vector(0) = 12
        vector(1) = 3
        vector(2) = 13
        vector(3) = 1
        vector(4) = 2
        vector(5) = 4
        vector(6) = 10
        vector(7) = 9
        vector(8) = 5
        vector(9) = 11
        For cont = 0 To 4
            aux = vector(cont)
            vector(cont) = vector(9 - cont)
            vector(9 - cont) = aux
        Next


        cont = 0
        While cont < vector.Length
            Label1.Text = Label1.Text & vector(cont) & " "
            cont = cont + 1
        End While
    End Sub
End Class