RecordCap

        Private Enum RecordCap
            DefaultCap = -1
            MaxCap = 0
        End Enum

        Public Sub FormInitCompleted()
            SetRecordCap(RecordCap.MaxCap)
        End Sub

        Public Sub FormClose()
            SetRecordCap(RecordCap.DefaultCap)
        End Sub

        Private Sub SetRecordCap(cap As RecordCap)
            Application.DropDownCap = cap
        End Sub