У VB-формы установлено ShowInTaskBar=True, но в TaskBar-e ee нет

Sub Main()
    Form1.Show vbModal
    MsgBox 'Если ты видишь это сообщение на фоне формы - то WS_EX_APPWINDOW убивает vbModal.'
End Sub

Private Const WS_EX_APPWINDOW As Long = &H40000
Private Declare Function GetWindowLong Lib 'user32' Alias 'GetWindowLongA' (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib 'user32' Alias 'SetWindowLongA' (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_EXSTYLE = (-20)
'
Private Sub Form_Activate()
    Dim currStyle As Long, newStyle As Long
    
    Me.Hide
    
    currStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    newStyle = currStyle Or WS_EX_APPWINDOW
    
    SetWindowLong Me.hWnd, GWL_EXSTYLE, newStyle
    
    Me.Show
End Sub

        frmMain.hide
        frmMod.Show
        Do
          if not frmMod.Visible Then Exit Do
          DoEvents
        Loop

' Код модуля - проект стартует отсюда:
'
Sub Main()
    Form1.Show vbModal
    MsgBox 'Этот мессадж должен появиться ПОСЛЕ закрытия формы Form1!'
End Sub
'
' Код формы Form1:
'
Private onceActivated As Boolean
'
Private Sub Form_Activate()
    If onceActivated Then Exit Sub
    
    Me.Caption = Me.Caption   ' << обязательно! не спрашивайте, почему :))
    frmInvisible.Show vbModal ' << модально!
    onceActivated = True      ' << чтобы выполнилось только один раз!
    
End Sub
'
' Код формы frmInvisible:
'
Private Sub Form_Load()
    ' Это форма-невидимка, показываемая модально по отношению к Form1.
    ' На ней должен быть размещён таймер Timer1.
    Me.BorderStyle = 0
    Me.Caption = ''
    Me.Width = 0
    Me.Height = 0
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub
'
Private Sub Timer1_Timer()
    Timer1.Enabled = False ' << выполнится единожды!
    Unload Me ' << форма выгружается, не успев даже появиться!
End Sub