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 / 309X0506.TXT < prev    next >
Encoding:
Text File  |  1998-05-27  |  686 b   |  27 lines
  1.  
  2. Private Sub UserControl_InitProperties()
  3.  
  4.      ' If the control's container is in design mode,
  5.      ' disable the Timer, which causes the control to
  6.      ' not function.
  7.      tmrChkStatus.Enabled = Ambient.UserMode
  8.  
  9.      ' Set the default values for some properties.
  10.  
  11.      ' The Caption property defaults to the name
  12.      ' assigned to the control by its container.
  13.      Caption = Ambient.DisplayName
  14.  
  15.  
  16. End Sub
  17.  
  18.  
  19. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  20.  
  21.      ' If the control's container is in design mode,
  22.      ' disable the Timer, which causes the control to
  23.      ' not function.
  24.      tmrChkStatus.Enabled = Ambient.UserMode
  25.  
  26. End Sub
  27.