Private Sub Form_Load() Dim RazlikaDuzina As Integer Dim RazlikaSirina As Integer RazlikaDuzina = (Form1.Width - Form2.Width) / 2 RazlikaSirina = (Form1.Height - Form2.Height) / 2 Form2.Top = Form1.Top + RazlikaSirina Form2.Left = Form1.Left + RazlikaDuzina End Sub