我在运行以下程序的时候系统提示错误：If Not IsMDIChi('frmZybiao') Then   的‘（’括号（单引号除外）应为表达试，到底是怎么一回事？请高手指点~~~

Public Class mdiMain
    Private Function IsMDIChi(ByVal chiFormName As String) As Boolean
        Dim chiForm As Form
        For Each chiForm In Me.MdiChildren
            If chiForm.Name = chiFormName Then
                If chiForm.Visible Then
                    chiForm.Activate()
                Else
                    chiForm.Show()
                End If
                Return True
            End If
        Next
    End Function
    Private Sub 专业目录管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 专业目录管理ToolStripMenuItem.Click
        [b][color=800000]If Not IsMDIChi('frmZybiao') Then[/color][/b]
            Dim chiZybiao As New frmZybiao
            chiZybiao.MdiParent = Me
            chiZybiao.Show()
        End If
    End Sub

    Private Sub mdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class