Popupmenu(в Form1) -> FormModal.Show Modal ->popupmenu(FormModal) -не работает - VB

Формулировка задачи:

Удалось слава богу смоделировать проблему. Чистый VB6 на 3 строчки кода.
Выводим модальную FormModal тремя вариантами:

Вариант 1.

В Form1 есть меню с пунктом Show Modal c кодом:

Private Sub menu_File1ShowModal_Click()
  FormModal.Show 1
End Sub

Вариант 2.

Также есть кнопка CommandShowModal, кот. делает тоже самое

Private Sub CommandShowModal_Click()
  menu_File1ShowModal_Click
End Sub

Вариант 3.

Также menu_File1 можно вызвать через popup, а потом соотв. нажать там "Show Modal"

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbRightButton Then
    PopupMenu menu_File1
  End If
End Sub

Теперь внимание. В FormModal также есть свое menu_File2 вызываемое через popup

'в модальной форме
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbRightButton Then
    Debug.Print "Нажали правую кнопку мыши на FormModal"
    PopupMenu Me.menu_File2
  End If
End Sub

Так вот, если модальная форма вызывалась по сценарию

Вариант 1.

или

Вариант 2.

, то нижний код выводит меню при щелчке по форме правой кнопкой мыши.
А если по сценарию

Вариант 3.

, т.е.
popup по первой форме
popup по второй форме
то

МЕНЮ НА ВТОРОЙ ФОРМЕ НЕ ПОЯВЛЯЕТСЯ

.
P.S. Монитор тряпочкой протирал, стучать не пробовал
PPS. В реальном приложении popup меню формы 1 - это меню трея, где есть пункт "Settings", кот. вызывает форму "Settings" (логично что она модальная), а в форме "Settings" есть всякие Listview c контекстными меню. Дык вот при вызове из трея ни одно из этих контекстных меню не показывается.
Но как выяснилось проблема высекается на раз-два. Вот только как решить? "Тест проект" прилагается.

Решение задачи: «Popupmenu(в Form1) -> FormModal.Show Modal ->popupmenu(FormModal) -не работает»

textual
                            Листинг программы 
                        

                            Private Sub menu_File1ShowModal_Click()
  'Timer1.Interval = 1 '(1 миллисекунда)
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  Timer1.Enabled = False
  FormModal.Show 1
End Sub

                        