'Private m_ValueLeft As Boolean Public Property ValueLeft As Boolean Get Return (Value = ValueOfLeftPosition) End Get Set(value As Boolean) If Me.Value <> ValueOfLeftPosition Then If value Then Me.Value = ValueOfLeftPosition ElseIf Not ValueRight Then Me.Value = ValueOfCenterPosition End If 'm_ValueLeft = value End If End Set End Property 'Private m_ValueRight As Boolean Public Property ValueRight As Boolean Get Return (Value = ValueOfRightPosition) End Get Set(value As Boolean) If Me.Value <> ValueOfRightPosition Then If value Then Me.Value = ValueOfRightPosition ElseIf Not ValueLeft Then Me.Value = ValueOfCenterPosition End If 'm_ValueRight = value End If End Set End Property