ublic Class MatType
    Private _ID As String
    Private _Name As String
    Private _DefWareHouseID As String
    Property ID() As String
        Get
            Return _ID
        End Get
        Set(ByVal value As String)
            _ID = value
        End Set
    End Property
    Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property
    Property DefWareHouseID() As String
        Get
            Return _DefWareHouseID
        End Get
        Set(ByVal value As String)
            _DefWareHouseID = value
        End Set
    End Property
End Class
Public Class MatTypeCollection
    Private col As Collection
    Public Function Add(ByVal ID As String, ByVal Name As String) As MatType
        Dim obj As New MatType
        If IsNothing(col) Then
            col = New Collection
        End If
        obj.ID = ID
        obj.Name = Name

        col.Add(obj, ID)
        Add = obj
        bj = Nothing
    End Function
    Public ReadOnly Property Count() As Integer
        Get
            Return col.Count
        End Get
    End Property
    Public ReadOnly Property Item(ByVal vntIndexKey As VariantType) As WareHouse
        Get
            Return col(vntIndexKey)
        End Get
    End Property
    Public Sub Remove(ByVal vntIndexKey As VariantType)
        col.Remove(vntIndexKey)
    End Sub
    Public Sub Clear()
        col.Clear()
    End Sub
End Class