in the MDI Form:

Code:
Private Sub Command1_Click()
    Me.Arrange 1
End Sub
hope this helps...