Private m_ar() As Double
    Public ReadOnly Property ar() As Double()
        Get
            Return m_ar
        End Get
    End Property
    Private m_ar_count As Integer
    Public ReadOnly Property ar_count() As Integer
        Get
            Return m_ar_count
        End Get
    End Property
 
 
    Public Sub New(ByVal ParamArray Value() As Double)
        Dim i As Integer
        m_ar_count = UBound(Value)
        ReDim Preserve m_ar(m_ar_count)
        For i = 0 To UBound(Value)
            m_ar(i) = Value(i)
        Next i
    End Sub