home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbbook13 / vbmod13.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  503 b   |  16 lines
  1. 'This is a Global module for procedures and functions
  2. 'that need program-wide scope
  3.  
  4. '-------------------------------------------------------
  5. 'Centers the passed form just above center on the screen
  6. '-------------------------------------------------------
  7. Sub CenterForm (x As Form)
  8.   
  9.     Screen.Mousepointer = 11         'hourglass
  10.     x.Top = (Screen.Height * .85) / 2 - x.Height / 2
  11.     x.Left = Screen.Width / 2 - x.Width / 2
  12.     Screen.Mousepointer = 0           'default
  13.  
  14. End Sub
  15.  
  16.