MDI Forms

[smh]

Does anyone know of any code which would allow me to horizontally tile 4 MDI Child forms in the parent form?

smh

Use the Arrange method

MDIForm1.Arrange vbTileHorizontal

[ExcalibursZone]

Dim chldWin(3) As New chldForm1
Dim chldHeight As Integer

Private Sub mnuTileH_Click()
    chldHeight = Int(Me.ScaleHeight / 4)
    
    For x = 0 To 3
        chldWin(x).Top = chldHeight * x
        chldWin(x).Width = Me.ScaleWidth
        chldWin(x).Left = 0
        chldWin(x).Height = chldHeight
        chldWin(x).Show
    Next x
End Sub

There ya go, hope this helps. If it's actually ScaleWidth to do a horizontal, just replace the above code with this:

Dim chldWin(3) As New chldForm1
Dim chldWidth As Integer

Private Sub mnuTileH_Click()
    chldWidth = Int(Me.ScaleWidth / 4)
    
    For X = 0 To 3
        chldWin(x).Top = 0
        chldWin(x).Width = chldWidth
        chldWin(x).Left = chldWidth * X
        chldWin(x).Height = Me.ScaleHeight
        chldWin(x).Show
    Next X
End Sub

Hope this helps.

[ExcalibursZone]

Woo, well, that's pretty spiffy, Megatron. I didn't know about that command (hurriedly takes some notes)

[smh]

thanks...worked great!

smh