主题：代码太繁琐。。求简洁的代码

循环就行了

Dim ls As new List(of String)
For Each c As object In e.form.controls("panel1").children
    If c.checked Then
        ls.add(c.text)
    End If
Next
Dim nms As String() = ls.ToArray