'Visual Basic 2010 Shadowing - Shadows Static Typing en Dynamic Binding
Namespace FragileBaseClass1
    Class CountedCharString : Inherits CharString
        Private m_Count As Integer
        Public Overrides Sub Add(ByVal aChar As Char)
            MyBase.Add(aChar)
            m_Count += 1
        End Sub
        Public ReadOnly Property Count() As Integer
            Get
                Count = m_Count
            End Get
        End Property
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.