Public Class MyTxtBox
  Inherits TextBox
  Public Sub New
    MyBase.New()
    MyBase.Text = "0"
  End Sub
  Public Overrides Property Text() As String
    Get
      Return MyBase.Text
    End Get
    Set(ByVal Value As String)
      MyBase.Text = Value
    End Set
  End Property
[...]
End Class