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 / 309X0505.TXT < prev    next >
Encoding:
Text File  |  1998-05-27  |  259 b   |  10 lines
  1.  
  2. Private Sub UserControl_Resize()
  3.  
  4.      ' Reposition the Label constituent control so it
  5.      ' is centered within the UserControl.
  6.      lblCaption.Top = (Height - lblCaption.Height) / 2
  7.      lblCaption.Left = (Width - lblCaption.Width) / 2
  8.  
  9. End Sub
  10.