BetterVersionOfMe

'####################################
'
'LabelBetter
'
'####################################

Public Class LabelBetter
  Inherits Label

  Friend WriteOnly Property OriginalText As String
    Set(value As String)
      AccessibleDescription = value
      Text = value
    End Set
  End Property

End Class

'####################################
'
'GroupBoxBetter
'
'####################################

Public Class GroupBoxBetter
  Inherits GroupBox

  Friend WriteOnly Property OriginalText As String
    Set(value As String)
      AccessibleDescription = value
      Text = value
    End Set
  End Property

End Class

'####################################
'
'ButtonBetter
'
'####################################

Public Class ButtonBetter
  Inherits Button

  Friend WriteOnly Property OriginalText As String
    Set(value As String)
      AccessibleDescription = value
      Text = value
    End Set
  End Property

End Class


'####################################
'
'ComboBoxBetter
'
'####################################

Public Class ComboBoxBetter
  Inherits ComboBox

  Friend WriteOnly Property OriginalText As String
    Set(value As String)
      AccessibleDescription = value
      Text = value
    End Set
  End Property

End Class