daily pastebin goal
67%
SHARE
TWEET

BetterVersionOfMe

CryptoJones Dec 22nd, 2015 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '####################################
  2. '
  3. 'LabelBetter
  4. '
  5. '####################################
  6.  
  7. Public Class LabelBetter
  8.   Inherits Label
  9.  
  10.   Friend WriteOnly Property OriginalText As String
  11.     Set(value As String)
  12.       AccessibleDescription = value
  13.       Text = value
  14.     End Set
  15.   End Property
  16.  
  17. End Class
  18.  
  19. '####################################
  20. '
  21. 'GroupBoxBetter
  22. '
  23. '####################################
  24.  
  25. Public Class GroupBoxBetter
  26.   Inherits GroupBox
  27.  
  28.   Friend WriteOnly Property OriginalText As String
  29.     Set(value As String)
  30.       AccessibleDescription = value
  31.       Text = value
  32.     End Set
  33.   End Property
  34.  
  35. End Class
  36.  
  37. '####################################
  38. '
  39. 'ButtonBetter
  40. '
  41. '####################################
  42.  
  43. Public Class ButtonBetter
  44.   Inherits Button
  45.  
  46.   Friend WriteOnly Property OriginalText As String
  47.     Set(value As String)
  48.       AccessibleDescription = value
  49.       Text = value
  50.     End Set
  51.   End Property
  52.  
  53. End Class
  54.  
  55.  
  56. '####################################
  57. '
  58. 'ComboBoxBetter
  59. '
  60. '####################################
  61.  
  62. Public Class ComboBoxBetter
  63.   Inherits ComboBox
  64.  
  65.   Friend WriteOnly Property OriginalText As String
  66.     Set(value As String)
  67.       AccessibleDescription = value
  68.       Text = value
  69.     End Set
  70.   End Property
  71.  
  72. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top