'CenterForm 'thanxs to dburn@mindspring.com Declare this Subroutine in General Declarations: Public Sub SubFrmCntr(CurrentFormReturnas
Form) CurrentForm.Move (Screen.Width - CurrentForm.Width) \ 2, (Screen.Height - CurrentForm.Height) \ 2 Load CurrentForm CurrentForm.show End Sub 'Then, When youwant
tocenter
a form: SubFrmCntr(ME) ' Sinceme
is theobject
name
of the current form