CenterAllForms
'note:call this function like this: 'Center_Form Me Sub Center_Form (frmForm As Form) frmForm.Left = (Screen.Width - frmForm.Width) / 2 frmForm.Top = (Screen.Height - frmForm.Height) / 2 End Sub
'note:call this function like this:
'Center_Form Me
Sub Center_Form (frmForm As Form)
frmForm.Left = (Screen.Width - frmForm.Width) / 2
frmForm.Top = (Screen.Height - frmForm.Height) / 2
End Sub
( centerallforms.html )- by Paolo Puglisi
- Modifica del 17/12/2023