Private _Aprop As Boolean = False Property Aprop() As Boolean Get Return _Aprop End Get Set(ByVal value As Boolean) _Aprop = value End Set End Property
Private _BpropAs Boolean = False Property Bprop() As Boolean Get Return _Bprop End Get Set(ByVal value As Boolean) _Bprop= value If value = True Then Me.BackColor = Color.Red Else Me.BackColor = Color.White End If End Set End Property