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 String)(dic.Values)
For Each val As String In list
Console.WriteLine(val)
Next
End Sub
End Module
' run:
'
' VB.NET
' Java
' c++