Hi.

I don't know if this is what you're after?
VB Code:
  1. Private MyShowAllThree As Boolean = True
  2.  
  3.     Public Property ShowAllThree() As Boolean
  4.         Get
  5.             Return MyShowAllThree
  6.         End Get
  7.         Set(ByVal Value As Boolean)
  8.             MyShowAllThree = Value
  9.             TextBox3.Visible = MyShowAllThree
  10.         End Set
  11.     End Property