Dim nms() As String = {"身份证号","班级","民族","父亲姓名","母亲姓名","户籍省","户籍县","户籍镇","父亲身份证号","母亲身份证号"} For Each nm As String In nms Dim c = e.Form.Controls(nm) c.Enabled = False c.BackColor = Color.Gainsboro If typeof c Is winform.combobox c.BaseControl.ShowDropDownButton = False End If Next