'Houserクラス 
Public Class Houser 
 
    Dim fields As Hashtable = New Hashtable 'filds 
    Dim id As String = String.Empty 'fildsのid要素 
    Dim name As String = String.Empty 'fildsのname要素 
    Dim group As String = String.Empty 'fildsのgroup要素 
    Dim count As Integer = 0 '各要素が参照するカウント 
 
    ''' <summary> 
    ''' fieldsからidを取得 
    ''' </summary> 
    Public Property idHouse() 
        Get 
            Return fields.Item(id) 
        End Get 
        Set(ByVal value) 
            id = "id" + count.ToString 
            fields.Add(id, value) 
        End Set 
    End Property 
 
    ''' <summary> 
    ''' fieldsからnameを取得 
    ''' </summary> 
    Public Property nameHouse() 
        Get 
            Return fields.Item(name) 
        End Get 
        Set(ByVal value) 
            name = "name" + count.ToString 
            fields.Add(name, value) 
        End Set 
    End Property 
 
 
    ''' <summary> 
    ''' fieldsからgourpを取得 
    ''' </summary> 
    Public Property groupHouse() 
        Get 
            Return fields.Item(group) 
        End Get 
        Set(ByVal value) 
            group = "group" + count.ToString 
            fields.Add(group, value) 
        End Set 
    End Property 
 
 
    ''' <summary> 
    ''' countを変更する。 
    ''' </summary> 
    Public Sub Counting(ByVal a As Integer) 
        count = a 
    End Sub 
 
 
    ''' <summary> 
    ''' fieldsの全要素を抜き出す。 
    ''' </summary> 
    Public Sub allCounting() 
 
        Console.WriteLine("") 
        Console.WriteLine("値の列挙") 
 
        '値項目の列挙 
        For Each i As String In fields.Values 
            Console.WriteLine(i) 
        Next 
 
        Console.WriteLine("エントリーの列挙") 
 
        'エントリーの列挙 
        For Each j As DictionaryEntry In fields 
            Console.WriteLine("{0} : {1}", j.Key, j.Value) 
        Next 
 
    End Sub 
 
End Class