'CenterForm
'thanxs to dburn@mindspring.com


Declare this Subroutine in General Declarations:

Public Sub SubFrmCntr(CurrentForm 
as
 Form)
 CurrentForm.Move (Screen.Width - CurrentForm.Width) \ 2, (Screen.Height - CurrentForm.Height) \ 2
 Load CurrentForm
 CurrentForm.show
End Sub


'Then, When you 
want
 to 
center
 a form:

SubFrmCntr(ME)   ' Since 
me
 is the 
object
 
name
 of the current form