Private m_CVOB As Object = Nothing
 
Public Property ChangeValueOfBoth() As Object
    Get
        Return m_CVOB
    End Get
    Set(ByVal value As Object)
        m_CVOB = value
        object1.property = value
        object2.property = value
    End Set
End Property