Определить отрыта ли UserForm vbModeless

[tae1980]

Имеем форму которая отрывается в режиме vbModeless. Нужно определить открыта ли эта форма в данный момент или нет.
Поиск по форуму вывел на функцию:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Function Forms_Open(Caption As String) As Boolean

If FindWindow("thunderDFrame", Caption) = 0 Then
Forms_Open = False
Else
Forms_Open = True
End If
 
End Function

Но в данном случае она всегда возвращает false.
Как быть, куда рыть?

[EducatedFool]

Всё делается проще:

If userform1.visible Then ....

[tae1980]

Сообщение от EducatedFool

Всё делается проще:

If userform1.visible Then ....

Вот часть кода

    DeleteBar ИмяПанели
    If МенеджерЛистов.Visible Then Unload МенеджерЛистов
........
Sub DeleteBar(namebar): On Error Resume Next    ' удаление панель
    Dim cbar As CommandBar
    For Each cbar In Application.CommandBars
        If cbar.Name = namebar Then cbar.Delete
    Next:
End Sub

Если этот код выполнятся когда панель раннее создана то все работает хорошо. Но если он выполняется когда панели нет, то на строчке IF получаем ошибку: Run-time error 5: Invalid procedure call or argument.

[tae1980]

Спасает использование "On Error Resume Next" пред IF. Но как-то это не спортивно....

[tae1980]

Нашел еще один способ борьбы: убрать If в начало Private Sub UserForm_Initialize()
Работает и как минимум одну строчку листинга выигрываем.

[tae1980]

После небольшой практики выяснилось что размещение If в начало Private Sub UserForm_Initialize() и первые вариант с "On Error Resume Next" ведут себя не много по разному. Вернулся к первому варианту, но так же от него не в восторге.

[EducatedFool]

Спасает использование "On Error Resume Next" пред IF. Но как-то это не спортивно....

Неужели... по сравнению с изначально предложенным вами использованием WinAPI - ещё как "спортивно"...

И ведь никто не запрещает сделать всё по фэн-шую:

On Error Resume Next
If userform1.visible Then ....
On Error GoTo 0