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