Android Code Snippet Sort Array of Int

Dim A() As Int
A = Array As Int(5, 7, 1, 4, 9, 2)
Dim L As List
L.Initialize
L.AddAll(A)
L.Sort(False)
For i = 0 To 4
  Log(L.Get(i))
Next
Log("....")
For i = 0 To 4
  Log(A(i))
Next

Public Sub SortArray(Arr() As Int, Ascending As Boolean)
    Dim L As List
    L.Initialize
    L.AddAll(Arr)
    L.Sort(Ascending)
    For i = 0 To L.Size - 1
        Arr(i) = L.Get(i)
    Next
End Sub

Dim A() As Int
A = Array As Int(5, 7, 1, 4, 9, 2)

Log("Unsorted")
For i = 0 To 4
  Log(A(i))
Next

Log("Ascending")
SortArray(A, True)
For i = 0 To 4
  Log(A(i))
Next

Log("Descending")
SortArray(A, False)
For i = 0 To 4
  Log(A(i))
Next

Public Sub SortArray(ArrayObject As Object, Ascending As Boolean)

    Dim L As List
    L.Initialize

    Dim ArrayDataType As String = ArrayType(ArrayObject)

    Select Case ArrayDataType
        Case "Byte"
            Dim arrByte() As Byte
            arrByte = ArrayObject
            L.AddAll(arrByte)
            L.Sort(Ascending)
            For i = 0 To L.Size - 1
                arrByte(i) = L.Get(i)
            Next
            ArrayObject = arrByte
        Case "Short"
            Dim arrShort() As Short
            arrShort = ArrayObject
            L.AddAll(arrShort)
            L.Sort(Ascending)
            For i = 0 To L.Size - 1
                arrShort(i) = L.Get(i)
            Next
            ArrayObject = arrShort
        Case "Int"
            Dim arrInt() As Int
            arrInt = ArrayObject
            L.AddAll(arrInt)
            L.Sort(Ascending)
            For i = 0 To L.Size - 1
                arrInt(i) = L.Get(i)
            Next
            ArrayObject = arrInt
        Case "Long"
            Dim arrLong() As Long
            arrLong = ArrayObject
            L.AddAll(arrLong)
            L.Sort(Ascending)
            For i = 0 To L.Size - 1
                arrLong(i) = L.Get(i)
            Next
            ArrayObject = arrLong
        Case "Float"
            Dim arrFloat() As Float
            arrFloat = ArrayObject
            L.AddAll(arrFloat)
            L.Sort(Ascending)
            For i = 0 To L.Size - 1
                arrFloat(i) = L.Get(i)
            Next
            ArrayObject = arrFloat
        Case "Double"
            Dim arrDouble() As Double
            arrDouble = ArrayObject
            L.AddAll(arrFloat)
            L.Sort(Ascending)
            For i = 0 To L.Size - 1
                arrDouble(i) = L.Get(i)
            Next
            ArrayObject = arrDouble
        Case "Char" ' don't works
'            Dim arrChar() As Char
'            arrChar = ArrayObject
'            L.AddAll(arrChar) ' gets an error
'            L.Sort(Ascending)
'            For i = 0 To L.Size - 1
'                arrChar(i) = L.Get(i)
'            Next
'            ArrayObject = arrChar
        Case "String"
            Dim arrString() As String
            arrString = ArrayObject
            L.AddAll(arrString)
            L.Sort(Ascending)
            For i = 0 To L.Size - 1
                arrString(i) = L.Get(i)
            Next
            ArrayObject = arrString
    End Select

End Sub

Dim FloatArray() As Float
FloatArray = Array As Float(5.1, 7.2, 1.3, 4.4, 9.5, 2.6)

Dim StringArray() As String
StringArray = Array As String("Klaus", "Erel", "DonManfred", "Stevel05", "Thedesolatesoul", "Agraham")

Log("Unsorted")
For i = 0 To FloatArray.Length - 1
  Log(FloatArray(i))
Next
For i = 0 To FloatArray.Length - 1
  Log(StringArray(i))
Next

Log("___________________")

Log("Ascending")
SortArray(FloatArray, True)
For i = 0 To 4
  Log(FloatArray(i))
Next
Log("")
SortArray(StringArray, True)
For i = 0 To FloatArray.Length - 1
  Log(StringArray(i))
Next

Log("___________________")

Log("Descending")
SortArray(FloatArray, False)
For i = 0 To 4
  Log(FloatArray(i))
Next
Log("")
SortArray(StringArray, False)
For i = 0 To FloatArray.Length - 1
  Log(StringArray(i))
Next