サンプルコードは、FormとHouserでクラスが分かれています。 
文字数の関係で、クラスを一つずつ紹介します。 
 
'Form 
Public Class Form1 
 
    Dim instHouse As New Houser() 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        instHouse.idHouse = "000001" 
        instHouse.nameHouse = "Yamada" 
        instHouse.groupHouse = "A" 
        instHouse.Counting(1) 
 
        instHouse.idHouse = "000002" 
        instHouse.nameHouse = "Tanaka" 
        instHouse.groupHouse = "B" 
 
    End Sub 
 
 
    ''' <summary> 
    ''' IDを取得するボタン 
    ''' </summary> 
    Private Sub btnID_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnID.Click 
        Console.WriteLine(instHouse.idHouse) 
    End Sub 
 
 
    ''' <summary> 
    ''' Nameを取得するボタン 
    ''' </summary> 
    Private Sub btnName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnName.Click 
        Console.WriteLine(instHouse.nameHouse) 
    End Sub 
 
 
    ''' <summary> 
    ''' Groupを取得するボタン 
    ''' </summary> 
    Private Sub btnGroup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGroup.Click 
        Console.WriteLine(instHouse.groupHouse) 
    End Sub 
 
 
    ''' <summary> 
    ''' 全要素を取得するボタン 
    ''' </summary> 
    Private Sub btnAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAll.Click 
        instHouse.allCounting() 
    End Sub 
 
End Class