Public Class Zhang
    Private ReadOnly MelistHead As New Collection
    Private MeCount&
    Private MeStepLength&

    Public ReadOnly Property ListHead() As Collection
        Get
            Return MelistHead
        End Get
    End Property

    Public Property Count() As Long
        Get
            Return MeCount
        End Get
        Set(vNewValue As Long)
            MeCount = vNewValue
        End Set
    End Property


    Public Property StepLength() As Long
        Get
            Return MeStepLength
        End Get
        Set(vNewValue As Long)
            MeStepLength = vNewValue
        End Set

    End Property
End Class