'Visual Basic 2010 Redefinition - Overridable en Overrides Object Oriented Programming
Class SpecialCounter : Inherits Counter
    Private m_StepValue As Integer = 1
    Public Property StepValue() As Integer
        Get
            StepValue = m_StepValue
        End Get
        Set(ByVal value As Integer)
            m_StepValue = value
        End Set
    End Property
    Public Overrides Sub Raise()
        m_Value += StepValue
    End Sub
    Public Overrides Sub Lower()
        m_Value -= StepValue
    End Sub
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.