home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhgrp / grpfile.bas < prev    next >
Encoding:
BASIC Source File  |  1996-05-09  |  246 b   |  10 lines
  1. Attribute VB_Name = "GrpFile"
  2. Global currentcolor&
  3. Global gColorValue&
  4.     
  5. Public Sub CenterForm(x_YourForm As Form)
  6.     
  7.     x_YourForm.Move Abs(Screen.Width - x_YourForm.Width) \ 2, Abs(Screen.Height - x_YourForm.Height) \ 2
  8.  
  9. End Sub
  10.