Pasted

'####################################
'
'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