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 / 309X0518.TXT < prev    next >
Encoding:
Text File  |  1998-05-27  |  525 b   |  20 lines
  1.  
  2. Private Sub UserControl_Initialize()
  3.  
  4.     ' When the control initializes, the button is
  5.     ' not "lighted".
  6.     mbooButtonLighted = False
  7.  
  8.     ' Since the control's status has just been
  9.     ' initialized, the StatusChanged event should
  10.     ' be raised.
  11.     RaiseEvent StatusChanged(0)
  12.  
  13.     ' Since UserControl's BackColor property will
  14.     ' be changed if the control is "selected", its
  15.     ' initial value must be stored in a temporary
  16.     ' variable.
  17.     molcBackColor = UserControl.BackColor
  18.  
  19. End Sub
  20.