Dim v() As Integer = {10,7,9,8,6,1,3,4,2,5}
Dim V1 As New List(of Integer)
Dim V2 As New List(of Integer)
V1.AddRange(v)
V1.Sort
V2.Add(v1(0))
V2.Add(v1(1))
V2.Add(v1(2))
Output.Show(v2(0))