Imports System

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim MySortedList As New SortedList(Of Int16, String)

​

        MySortedList.Add(1, "Item 1")

        MySortedList.Add(2, "Item 2")

        MySortedList.Add(3, "Item 3")

        MySortedList.Add(4, "Item 4")

​

​

        Dim MyMaxKey = MySortedList.Last().Key

        Console.WriteLine(MyMaxKey)

​

​

    End Sub

End Module