CATIA窗口下拉菜单仅能显示9个窗口标题?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    ' 双击时，根据选中的标题激活对应的窗口

    Dim selectedCaption As String

    selectedCaption = Me.ListBox1.Value

    If selectedCaption = "" Or selectedCaption = "（无打开的窗口）" Then Exit Sub

    On Error Resume Next

    Dim win As Window

    For Each win In CATIA.Windows

        If win.Caption = selectedCaption Then

            win.Activate   ' 激活该窗口

            End

            Exit For

        End If

    Next win

    On Error GoTo 0

End Sub