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

下面的代码能否精简,因为还有好多需要写上,哪么这段代码就好长,请高手帮忙,谢谢!

Dim i1 As String = e.Form.Controls("label6").text    '定义一个组合框,以供在窗口显示表用 
If i1= "现金表" Then
    e.Form.Controls("工资卡").Visible =False '

    e.Form.Controls("银行存款").Visible =False '

    e.Form.Controls("债权").Visible =False '

 Else If i1 = "工资卡" Then
    e.Form.Controls("银行存款").Visible =False '

    e.Form.Controls("债权").Visible =False '

    e.Form.Controls("现金表").Visible =False '

Else If i1= "银行存款" Then
     e.Form.Controls("工资卡").Visible =False '

     e.Form.Controls("债权").Visible =False '

     e.Form.Controls("现金表").Visible =False '

Else If i1= "债权" Then
    e.Form.Controls("工资卡").Visible =False '

    e.Form.Controls("银行存款").Visible =False '

    e.Form.Controls("现金表").Visible =False '

End  If