For i As Integer=1 To Vals(0)\\4
        pbx1.Image = GetImage(drs(4*i-4)("文件名"))
        pbx2.Image = GetImage(drs(4*i-3)("文件名"))
        pbx3.Image = GetImage(drs(4*i-2)("文件名"))
        pbx4.Image = GetImage(drs(4*i-1)("文件名"))
        tx1.Value=drs(4*i-4)("文件名") & "| " & drs(4*i-4)("修改时间") & "| " & drs(4*i-4)("文件大小")
        tx2.Value=drs(4*i-3)("文件名") & "| " & drs(4*i-3)("修改时间") & "| " & drs(4*i-3)("文件大小")
        tx3.Value=drs(4*i-2)("文件名") & "| " & drs(4*i-2)("修改时间") & "| " & drs(4*i-2)("文件大小")
        tx4.Value=drs(4*i-1)("文件名") & "| " & drs(4*i-1)("修改时间") & "| " & drs(4*i-1)("文件大小")
        vars("st1")=drs(4*i-4)("文件名") \'将全文件名赋值给全局变量
        vars("st2")=drs(4*i-3)("文件名")
        vars("st3")=drs(4*i-2)("文件名")
        vars("st4")=drs(4*i-1)("文件名")
        For l As Integer=0 To 3  \'遍历4个del单选按钮
            Dim rdo As WinForm.RadioButton = e.Form.Controls("RadioButton" & l+1)
            Dim Result As DialogResult
            Result = MessageBox.Show("是否删除" & "第" & l+1 & "幅图像?", "询问", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.Yes Then
                rdo.Select
            End If
        Next
        For l As Integer=0 To 3  \'启用4个mark单选按钮
            Dim rdo As WinForm.RadioButton = e.Form.Controls("RadioButton" & l+5)
            Dim Result As DialogResult
            Result = MessageBox.Show("是否将" & "第" & l+1 & "幅图像标记为不相同?", "询问", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.Yes Then
                rdo.Select
            End If
        Next
    Next

代码简介：vals(0）指的是重复文件的个数，窗口中每次显示4个文件，通过点击单选按钮将文件标记为删除或不相同，在重复文件个数小于8时，单选按钮可正常点击，大于等于8个时，不能实现显示4个文件并处理后再显示后续文件的功能，没有办法，只好用黑体字标记的代码进行处理，请教各位大侠如何设置在遍历中间处理手工点击单选按钮的代码？在此先谢过了！

就是说当重复文件数大于等于八个时，一次显示四个，对这四个通过点击单选按钮将文件标记为删除或不相同，处理完后再显示四个文件，再处理。如何让遍历循环一次一停，处理完后再循环。