Virtual Partition of a Form

[VBonliner]

Hi,

Is there a way to show 4 square forms (equal areas)at the same time, all coinciding at 1 point = screen center.

Thank you

[kedaman]

Using the same form? The same width and height?

Either set the StartUpPosition Property to 2 or use this:

Form1.Left = Screen.Width / 2 - (Form1.Width / 2)
Form1.Top = Screen.Height / 2 - (Form1.Height / 2)
Form2.Left = Screen.Width / 2 - (Form1.Width / 2)
Form2.Top = Screen.Height / 2 - (Form1.Height / 2)
Form3.Left = Screen.Width / 2 - (Form1.Width / 2)
Form3.Top = Screen.Height / 2 - (Form1.Height / 2)
Form4.Left = Screen.Width / 2 - (Form1.Width / 2)
Form4.Top = Screen.Height / 2 - (Form1.Height / 2)

'...Change Formx into whatever....'

[kedaman]

You could set startup object to sub main and paste this in that module:

Private allforms As New Collection
Sub main()
    For x = 0 To 3
        allforms.Add New Form1
        With allforms(x + 1)
            .Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2
            .Show
        End With
    Next x
End Sub