Kullanım şekli:

FixUpCombos(Metin1)

Kod içerisindeki  intIndex = CInt(Right(ctlCalling.Name, 1)) kodu ile denetimin numarasını alıyor. Metin1'in son hanesi 1

acbcMaxSortFields, farklı biryerde tanımlanmış sayı. 

 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

intindex acbcMaxsortfieldsten küçük ise, cbofield2 = null, Metin1 boş ise cbofield2'in enabled özelliği true,
grpsort2'nin enabled true

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

intindex, acbcMaxSortFields değerinin 1 eksiğinden kuçuk ise Metin1'e göre 1+2=3'ten acbcMaxSortFields değerine kadar for döngüsü var. Bu döngü ile cbofield4, cbofield5 ... value değeri null, görünümü kapalı

grpsort4, grupsort5... değedleri abcNoSort değeri olacak, Enabled=false olacak.

acbcMaxSortFields ve abcNoSort sanırım değişken.