Get unique list from array

Dim MyArray(10) As Int = Array As Int (99,25,13,25,95,13,11,8,15,99)
Dim MyMap As Map
Dim MyList As List
MyMap.Initialize
MyList.Initialize

For Each Item As Int In MyArray
   MyMap.Put(Item,"")
Next

For i = 0 To MyMap.Size-1
   MyList.Add(MyMap.GetKeyAt(i))
Next


MyList.Sort(True)

For Each Item As Int In MyList
   Log(Item)
Next

Log(MyList.Size&" Unique Entries")

Dim MyArray(6) As Int = Array As Int (99,13,99,13,99,15,99)
Dim MyMap As Map
Dim NumberOfItems, ItemTotal As Int

MyMap.Initialize

For Each Item As Int In MyArray
    'Use the Value of the map stored in the key to count the items
   MyMap.Put(Item,MyMap.GetDefault(Item,0)+1)
Next

NumberOfItems = MyArray.Length
For i = 0 To MyMap.Size-1
   Item=MyMap.GetKeyAt(i)
   ItemTotal=MyMap.Get(Item)
   Log(Item&" "&ItemTotal&" "&NumberFormat((ItemTotal*100)/NumberOfItems,2,2)&"%")
Next

Sub Process_Globals
     Type OutputType(Item As Int,Count As Int,Result As Float)
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Working code .......
Dim MyArray(6) As Int = Array As Int (99,13,99,13,99,15,99)
Dim MyMap As Map
Dim NumberOfItems As Int
Dim MyList As List

MyMap.Initialize
MyList.Initialize

For Each Item As Int In MyArray
    'Use the Value stored in the map under the key to count the items
   MyMap.Put(Item,MyMap.GetDefault(Item,0)+1)
Next

NumberOfItems = MyArray.Length
For Each Key As Int In MyMap.Keys
    Dim R As OutputType
    R.Item=Key
    R.Count=MyMap.Get(Key)
    R.Result=(R.Count*100)/NumberOfItems
    MyList.Add(R)
Next

MyList.SortType("Result",False)

For Each R As OutputType In MyList
   Log(R.Item&" "&R.Count&" "&NumberFormat(R.Result,2,2)&"%")
Next
End Sub

Dim R As OutputType = MyList.Get(0)

R.Item = nn etc.

Dim Btn As Button = MyBtnList.Get(0)

Btn.Text = "Click Here"

For Each R As OutputType In MyList


Next