Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Long

    If m_blnFlag Then
            With Me.Section(0).Controls
                For i = 0 To .Count - 1
                    With .Item(i)
                        .Top = 0
                        .Height = 0
                    End With
                Next i
            End With
        Me.Section(0).Height = 0
        m_blnFlag = False'Убери совсем отсюда
    Else
            With Me.Section(0).Controls
                For i = 0 To .Count - 1
                    With .Item(i)
                        .Top = 0
                        .Height = 270
                    End With
                Next i
            End With
        Me.Section(0).Height = 379
    End If
End Sub