Formu Ekrar Ortalama Yine Modüle Yasıp Bütün Formları Ortalayabilirsiniz.
Kod Alanı:
Public Sub FormuEkrandaOrtala(frm As Form )
Dim widthana, heightana, heightform, widthform As Integer
widthana = Screen.Width
heightana = Screen.Height - 1400
widthform = frm.Width
heightform = frm.Height
frm.Left = (widthana - widthform ) / 2 Center form horizontally.
frm.Top = (heightana - heightform ) / 2 Center form vertically.
End Sub
Form Kullanımı
Kod Alanı:
private sub form_load( )
call FormuEkrandaOrtala(me )
end sub