İki saattir şu kodu anlamaya çalışıyorum bir türlü çözemedim

Private Sub FixUpCombos(ctlCalling As Control)



    Dim intIndex As Integer

    Dim intI As Integer

    

    ' Grab the last character of the calling

    ' control's name and convert to an integer

    intIndex = CInt(Right(ctlCalling.Name, 1))

    

    ' Enable the next control if and only if the

    ' value of the calling control is non-null

    If intIndex < acbcMaxSortFields Then

        With Me("cboField" & intIndex + 1)

            .Value = Null

            .Enabled = (Not IsNull(ctlCalling))

        End With

        Me("grpSort" & intIndex + 1).Enabled = (Not IsNull(ctlCalling))

    End If

    

    ' Disable all controls after the next one

    If intIndex < acbcMaxSortFields - 1 Then

        For intI = intIndex + 2 To acbcMaxSortFields

            With Me("cboField" & intI)

                .Value = Null

                .Enabled = False

            End With

            With Me("grpSort" & intI)

                .Value = acbcNoSort

                .Enabled = False

            End With

        Next intI

    End If

End Sub