home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Special / chip-cd_2001_spec_05.zip / spec_05 / apps / crystal / disk18 / Xvb387._ / Xvb387.
Text File  |  1999-08-23  |  186b  |  9 lines
  1. Attribute VB_Name = "modXtremeDemo"
  2. Option Explicit
  3.  
  4. Public Sub Center(aForm As Form)
  5.   aForm.Move (Screen.Width - aForm.Width) / 2, (Screen.Height - aForm.Height) / 2
  6. End Sub
  7.  
  8.  
  9.