Imports System
Imports System.Collections.Generic
Module Program
Sub Main()
Dim map As New Dictionary(Of String, Integer) From {
{"c", 1},
{"cpp", 2},
{"java", 3},
{"vb.net", 4}
}
For Each entry In map
Console.WriteLine("Key:" & entry.Key & " Value:" & entry.Value)
Next
End Sub
End Module
' run:
'
' Key:c Value:1
' Key:cpp Value:2
' Key:java Value:3
' Key:vb.net Value:4
'