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 / 309X0503.TXT < prev    next >
Encoding:
Text File  |  1998-05-27  |  381 b   |  15 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 UserControl's BackColor property will
  9.      ' be changed if the control is "selected", its
  10.      ' initial value must be stored in a temporary
  11.      ' variable.
  12.      molcBackColor = UserControl.BackColor
  13.  
  14. End Sub
  15.