[5分]谁有功夫帮我解读这段函数代码？

Function ReportFormat(rpt As Report, ctlID As Control, Optional FormatMode As Integer = 0, _
                      Optional FillBlankLine As Boolean = True) As Boolean
    On Error GoTo Err_ReportFormat
    Dim intMaxRec As Integer
    Static intMaxRecOfPage1 As Integer
    Dim intRecCount As Integer
    Dim intCtlCount As Integer
    Dim intMaxctl As Integer
    Dim sngTop As Single
    Dim strFirst As String
    Dim strLast As String
    Dim ctlFirst As Control
    Dim ctlLast As Control

    With rpt.Section(acDetail)
        If rpt.Page = 1 Then
            intMaxRecOfPage1 = ctlID.Value
            intMaxRec = intMaxRecOfPage1 - 1
        Else
            If FillBlankLine = True Then
                intMaxRec = intMaxRecOfPage1 - 1
            Else
                intMaxRec = ctlID.Value - intMaxRecOfPage1 * (rpt.Page - 1) - 1
            End If
        End If

        For intRecCount = 0 To intMaxRec
            sngTop = ctlID.Top + .Height * intRecCount + rpt.Section(acPageHeader).Height
            intMaxctl = .Controls.Count - 1
            For intCtlCount = 0 To intMaxctl
                With rpt.Section(acDetail).Controls(intCtlCount)
                    If intCtlCount = 0 Then strFirst = .Name
                    If .Visible = True Or .Name = ctlID.Name Then
                        If FormatMode <> 1 Then rpt.Line (.Left, sngTop)- _
                                                         (.Left, sngTop + rpt.Section(acDetail).Height)
                    End If

                    If intCtlCount = intMaxctl Then
                        strLast = .Name
                        If FormatMode <> 1 Then rpt.Line (.Left + .Width, sngTop)- _
                                                         (.Left + .Width, sngTop + rpt.Section(acDetail).Height)
                    End If
                End With
            Next
            Set ctlFirst = .Controls(strFirst)
            Set ctlLast = .Controls(strLast)
            If FormatMode <> 2 Then
                rpt.Line (ctlFirst.Left, sngTop)-(ctlLast.Left + ctlLast.Width, sngTop)
                If intRecCount = intMaxRec Then
                    rpt.Line (ctlFirst.Left, sngTop + .Height)- _
                             (ctlLast.Left + ctlLast.Width, sngTop + .Height)
                End If
            End If
        Next
    End With
    If Err.Number = 0 Then ReportFormat = True

Exit_ReportFormat:
    Exit Function

Err_ReportFormat:
    ReportFormat = False
    MsgBox "Error Number" & Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
    Resume Exit_ReportFormat
End Function