Article ID: 192090
Article Last Modified on 5/13/2003
Public Property Get BackColor() As OLE_COLOR
BackColor = UserControl.BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
UserControl.BackColor() = New_BackColor
PropertyChanged "BackColor"
End Property
' Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
UserControl.BackColor = PropBag.ReadProperty("BackColor", &H8000000F)
End Sub
' Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("BackColor", _
UserControl.BackColor, &H8000000F)
End Sub
Additional query words: kbDSupport kbDSD kbVBp kbCtrl kbVBp600bug kbVBp500bug
Keywords: kbbug KB192090