 Private Sub UserControl11_OnMinimize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserControl12.OnMinimize, UserControl13.OnMinimize, UserControl14.OnMinimize
        Dim I As Integer
        Dim LastCtrlIndex As Integer
        Dim S As Boolean = False
        Dim LastPanelHeight As Integer
        For Each Ctrl As CrazyPanel.UserControl1 In Me.Controls
            LastCtrlIndex = Ctrl.TabIndex
            Exit For
        Next


        For I = sender.TabIndex To LastCtrlIndex

            For Each Ctrl As CrazyPanel.UserControl1 In Me.Controls
                If ctrl.TabIndex = I + 1 Then

                    If S = False Then
                        ctrl.Top = sender.top + sender.TitleZoneHeight + 10
                        S = True
                        LastPanelHeight = ctrl.Top + ctrl.Height + 5
                    Else
                        ctrl.Top = LastPanelHeight
                        LastPanelHeight = ctrl.Top + ctrl.Height + 5
                    End If
                End If
            Next
        Next
        '0
        '1
        '2
        '3
        '4
        '5

        'Next


    End Sub

    Private Sub UserControl11_OnMaximize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserControl12.OnMaximize, UserControl13.OnMaximize, UserControl14.OnMaximize

        Dim I As Integer
        Dim LastCtrlIndex As Integer
        Dim S As Boolean = False
        Dim LastPanelHeight As Integer
        For Each Ctrl As CrazyPanel.UserControl1 In Me.Controls
            LastCtrlIndex = Ctrl.TabIndex
            Exit For
        Next


        For I = sender.TabIndex To LastCtrlIndex

            For Each Ctrl As CrazyPanel.UserControl1 In Me.Controls
                If ctrl.TabIndex = I + 1 Then

                    If S = False Then
                        ctrl.Top = sender.top + sender.Height + 5
                        S = True
                        LastPanelHeight = ctrl.Top + ctrl.Height + 5
                    Else
                        ctrl.Top = LastPanelHeight
                        LastPanelHeight = ctrl.Top + ctrl.Height + 5
                    End If
                End If
            Next
        Next
    End Sub