为什么在最大化的时候会出现问题？

Private Sub Form_Resize()
    On Error Resume Next
    Dim lngHeight As Long
    Dim int1 As Long
    lngHeight = Me.InsideHeight
    lngHeight = lngHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
    
    Me.Child1.Width = (Me.InsideWidth - Me.Child1.Left) / 2
    Me.Child1.Height = (lngHeight - Me.Child2.Top) / 2
    
    Me.Child2.Top = Me.Child1.Top
    Me.Child2.Height = Me.Child1.Height
    Me.Child2.Left = Me.Child1.Left + Me.Child1.Width + 180
    Me.Child2.Width = Me.InsideWidth - Me.Child2.Left - 90
    
    Me.Child3.Top = Me.Child1.Top + Me.Child1.Height + 90
    Me.Child3.Height = lngHeight - Me.Child3.Top
    Me.Child3.Width = Me.InsideWidth - Me.Child3.Left - 90
End Sub