Private mBackColor As OLE_COLOR
 
Public Function GetValue() As Integer
GetValue = CInt(ch_value.Text)
End Function 
 
Public Property Get BackColor() As OLE_COLOR
BackColor = mBackColor
End Property
 
Public Property Let BackColor(ByVal vNew As OLE_COLOR)
mBackColor = vNew
ch_value.BackColor = vNew
PropertyChanged "BackColor"
End Property
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Propbag.WirteProperty "BackColor", BackColor, vbWhite
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
BackColor=PropBag.ReadProperty("BackColor",vbWhite)
End Sub