主题：这句代码不起作用?

 Dim frm As WinForm.Form = Forms.ActiveForm

        Select frm.Name

            Case "协同办公","客服管理","仓库管理","报备管理","销售管理","财务管理"

                If forms(frm.Name).Opened Then

                    forms(frm.Name).Close

                    forms(e.sender.Text).Open

                End If

        End Select

错了一句代码.