Фокусы формы при изменении её Enabled`а

[MIT]

Несмотря на то, что мой вопрос не относится непосредственно к VB6, да и пишу я не на VB6, задам я его имеено здесь, т.к. этот раздел более популярен, да и помощь может подоспеть от Хакера, которого в дотнетном разделе не дозовешся.

Собственно, в чем проблема: есть форма (WS_EX_LAYERED), которая довольно странно ведет себя при изменении свойства Enabled. Если при установке этого свойства в False происходит то что должно происходить, то при возвращении свойства в True форма, помимо отработки всего нужного кода, почему-то "уходит" по ZOrder`у в самую глубь — под все имеющиеся окна. Использование совместно с изменением значения свойста функции SetForegroundWindow не катит.

Вопрос: с чем это может быть связано? Отмечу, что никаких манипуляций с фокусом с моей стороны не проиходит.

[Twister]

Что за форма? Как создается? Как устанавливается Enabled?
Нужны данные для эксперимента.

[MIT]

Поэксперементировал сейчас сам немного. Я думал что это из-за стилей окна, а оказалось что и нет.
Что делаем: имея два потока, в первом из них пишем Me.Enabled = False, запускаем второй; второй отображает MsgBox, по нажатию на кнопку поток завершается, вызывается процедура из первого потока, которая делает Me.Enabled = True. Собственно и всё. Правда форма прячется при закрытии MsgBox`а, а не при Me.Enabled = True, как я полагал изначально, однако фишка в том, что если Me.Enabled = False не делать, то ничего необычного не происходит.

Если кому интересно, вот НЕТный код:

Код: Выделить всё

Imports System.ComponentModel

Public Class Form1
   Dim WithEvents bw As BackgroundWorker

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      bw = New BackgroundWorker
   End Sub

   Private Sub bw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bw.DoWork
      MsgBox("???", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "!!!")
   End Sub
   Private Sub bw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bw.RunWorkerCompleted
      'Me.Enabled = True
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Me.Enabled = False
      bw.RunWorkerAsync()
   End Sub
End Class

(Form1_Load, bw_RunWorkerCompleted и Button1_Click выполняются в первом потоке, bw_DoWork - во втором)

P.S. А тему наверно можно куда-нибудь переместить (в трёп?), ибо к VB6 она со своей многопоточностью уже никак не относится.

[MIT]

Решил использованием API`шно-импортированной функцией + указанием в качестве родителя главной формы.