Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  With PropBag
    .WriteProperty "Path", tmpPath, ""
  End With
End Sub

Private UserControl_ReadProperties(PropBag As PropertyBag)
  With PropBag
    tmpPath = ReadProperty("Path", "")
  End With
End Sub

Public Property Let path(ByVal vNewValue As String) 
  If vNewValue = "" Then Exit Property 
  tmpPath = vNewValue 
  <font color=red>PropertyChanged "Path</font>
End Property