主题：[求助]这段代码怎么修改？

参考代码

Dim ctls1() As String = {"CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox6","CheckBox7","CheckBox8","CheckBox9","CheckBox10"}
Dim ctls2() As String = {"车号1", "车号2", "车号3"}
for i as integer = 0 to ctls1.length - 1
    If e.form.controls(ctls1(i)).Checked Then
        e.form.controls(ctls2(i)).Enabled = True
    Else
        e.form.controls(ctls2(i)).Enabled = False
    End If
next