<Serializable()> _
Public Class httpUser
    Public Username As String
    Public Password As String
End Class

<Serializable()> _
Public Class httpUserDB
    Inherits System.Collections.CollectionBase


    Public Overridable Function Add(ByVal Value As HttpUser) As Integer
        MyBase.List.Add(Value)
    End Function

    Public Overridable Sub Remove(ByVal pintIndex As Integer)
        MyBase.List.RemoveAt(pintIndex)
    End Sub

    Default Public Overridable Property Item(ByVal Index As Integer) As HttpUser
        Get
            Return DirectCast(MyBase.List.Item(Index), HttpUser)
        End Get
        Set(ByVal Value As HttpUser)
            MyBase.List.Item(Index) = Value
        End Set
    End Property

End Class