六个子窗休完美平分主窗体

我要谢谢网友zhlk666带给我一个全新的想法，这里当然还要谢谢红尘如烟，最后我在更改了zhlk666的代码实现了将近完美的窗体，但现在我还是发现不够完美，主窗体下面还是有一部份主窗体是多出来的，请问老师是不是可以更完美一些呢？我现在的代码是：

Private Sub Form_Resize()
    On Error Resume Next
    Dim lngWidth As Long
    Dim lngHeight As Long
    lngWidth = Me.InsideWidth / 2
    lngHeight = (Me.InsideHeight - Me.子窗体1.Top) / 3
    For lngI = 1 To 6
        Me("子窗体" & lngI).Width = lngWidth
        Me("子窗体" & lngI).Height = lngHeight
    Next
    Me("子窗体1").Top = 800
    Me("子窗体1").Left = 0
    Me("子窗体2").Top = 800
    Me("子窗体2").Left = lngWidth
    Me("子窗体3").Top = lngHeight
    Me("子窗体3").Left = 0
    Me("子窗体4").Top = lngHeight
    Me("子窗体4").Left = lngWidth
    Me("子窗体5").Top = lngHeight * 2
    Me("子窗体5").Left = 0
    Me("子窗体6").Top = lngHeight * 2
    Me("子窗体6").Left = lngWidth
End Sub

�������ش˸���