Public Class cbase
 
    Const myConst As Double = 1.5
 
    Public Overridable ReadOnly Property TheConst() As Double
        Get
            Return myConst
        End Get
    End Property
End Class
 
Public Class cAbl
    Inherits cbase
    Const myConst As Double = 2.5
 
    Public Overrides ReadOnly Property TheConst() As Double
        Get
            Return myConst
        End Get
    End Property
 
End Class

        Dim bc As New cbase
        Dim abl As New cAbl
 
        Dim lst_b As New System.Collections.Generic.List(Of cbase)
 
        lst_b.Add(bc)
        lst_b.Add(abl)
 
        Dim c1 As Double = lst_b(0).TheConst  '1.5
        Dim c2 As Double = lst_b(1).TheConst  '2.5