Module Module1
Sub Main()
Dim dic As New Dictionary(Of Integer, String)
dic.Add(1, "VB.NET")
dic.Add(2, "Java")
dic.Add(5, "c++")
Dim list As New List(Of Integer)(dic.Keys)
For Each key As Integer In list
Console.WriteLine(key)
Next
End Sub
End Module
' run:
'
' 1
' 2
' 5