主题：能在窗口内执行的代码确不能写成函数

Dim e As object = args(0)
Dim ctl As object
'Dim selectCtlNames As new List(Of String)

For i As Integer = 0 To SelectCtlNames.count - 1
    ctl = e.Form.Controls(cstr(SelectCtlNames(i)))
    ctl.BackColor = Color.Transparent
Next
SelectCtlNames.Clear