home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP05 / 309X0509.TXT < prev    next >
Encoding:
Text File  |  1998-05-27  |  575 b   |  21 lines
  1.  
  2. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  3.  
  4.      ' Write properties to the property bag.
  5.      PropBag.WriteProperty "Caption", Caption, Ambient.DisplayName
  6.  
  7. End Sub
  8.  
  9.  
  10. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  11.  
  12.      ' If the control's container is in design mode,
  13.      ' disable the Timer, which causes the control to
  14.      ' not function.     
  15.      tmrChkStatus.Enabled = Ambient.UserMode
  16.  
  17.      ' Read properties from the property bag.
  18.      Caption = PropBag.ReadProperty("Caption", Ambient.DisplayName)
  19.  
  20. End Sub
  21.