Public Enum cFF
 a1 =  1 
 a2 =  2 
 a3 =  3 
End Enum
Private kF As cFF

Public Property Get F() As cFF
 F = kF
End Property

Public Property Let F(ByVal vF As cFF)
 lbl.Caption = ""
 kF = vF
 PropertyChanged "F"
End Property

Public Property Get D() As String
 D = lbl.Caption
End Property

Public Property Let D(ByVal vD As String)
 lbl.Caption = vD
 PropertyChanged "D"
End Property


Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   F = PropBag.ReadProperty("F", a1)
   D = PropBag.ReadProperty("D", "")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
   PropBag.WriteProperty "F", kF, a1
   PropBag.WriteProperty "D", lbl.Caption, ""
End Sub