主题：代码优化

For Each frm As WinForm.Form In Forms
    Select frm.Name
        Case "客户欠款","应付款分析","应付运费","杂费","已付款","装箱单"
            Forms(frm.Name).Close()
    End Select
Next
Select MainTable.Name
    Case "客户欠款"
        Forms("客户欠款").Show()
    Case "应付款"
        Forms("应付款分析").Show()
    Case "装箱单"
        Forms("装箱单").Show()
End Select

 这样试试?