Advertisement
2_2002-2004 Custom Controls/ Forms/ Menus #116488

Center_Form

To center all of your forms nicely on the screen, use this as the first line in the Form_Load event--resolution independent. 'note:call this function like this: Center_Form Me

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source
Sub Center_Form (frmForm As Form)
 frmForm.Left = (Screen.Width - frmForm.Width) / 2
 frmForm.Top = (Screen.Height - frmForm.Height) / 2
End Sub
Public Apath As String = System.Environment.CurrentDirectory
'example:
FileCopy(Apath & ".\images\Yellow.jpg", ofile1 & "Yellow.jpg")
Original Comments (3)
Recovered from Wayback Machine