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 / CHAP08 / 309X0801.TXT next >
Encoding:
Text File  |  1998-06-17  |  469 b   |  18 lines
  1.  
  2. Private Sub UserControl_Resize()
  3.  
  4. ' Move and resize the consituent controls of the
  5. ' user control.
  6. cmdFirst.Move 0, 15
  7. hsbRecScroll.Move cmdFirst.Width, 0, _
  8.     UserControl.Width - cmdFirst.Width - cmdLast.Width, _
  9.     cmdFirst.Height + 15
  10. cmdLast.Move cmdFirst.Width + hsbRecScroll.Width, 15
  11.  
  12. ' Resize the user control.
  13. UserControl.Height = cmdFirst.Height + 15
  14. UserControl.Width = cmdFirst.Width _
  15.     + hsbRecScroll.Width + cmdLast.Width
  16.  
  17. End Sub
  18.