1Imports System.Collections.Generic
2Imports System.Collections
3Imports System
4
5Class Test
6	Shared Function Main () As Integer
7
8		Dim col As New Generic.Dictionary(Of Integer, Type)
9'		Dim e As Generic.Dictionary(Of Integer, Type).ValueCollection
10		Dim t As Type
11
12		col.Add (1, GetType (Integer))
13
14'		e = col.Values
15
16		t = col (1)
17
18	End Function
19End Class
20