Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  With PropBag
    mExclude = .ReadProperty("xExclude")
  End With
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  With PropBag
    .WriteProperty "xExclude", mExclude
  End With
End Sub