主题：这样的代码能否精简

Dim i1 As String = e.Form.Controls("label6").text
Dim ss As String = "现金表|工资卡|银行存款|债权"
For Each s As String In ss.Split("|")

     e.Form.Controls(" & s & ").Visible =(i1 = s)

Next