Private Sub Form_Resize()

    On Error Resume  Next

    Me.子窗体1.Width = Me.InsideWidth

    Me.子窗体1.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height

End Sub

注意：此代码需要有窗体页眉页脚