请教!判断另一个窗体是否打开

下面这个函数判断一个窗体是否处于运行状态，如果在运行状态，则返回 True，否则 返回 False

'参数 strFName ：窗体名

Function isFormOpen(strFName As String) As Boolean
    Dim i As Integer
    isFormOpen = False
    For i = 0 To Forms.Count - 1
        If Forms(i).Name = strFName Then
            If Forms(i).CurrentView <> 0 Then
                isFormOpen = True
                Exit Function
            End If
        End If
    Next
End Function

在你的A、B、C窗体的相关事件中，用此函数判断，并根据判断作出打开或关闭窗体的处理语句就行了