Отловить и запретить потерю фокуса окна

[M.A.R.K]

Привет всем.
Приведу хороший пример реализации задачи:
Если в стандартном "Диспетчере задач Windows" выбрать "Вид->Выбрать столбцы...", откроется окно выбора столбцов.
Если незакрывая окно "Выбора столбцов" сщелкнуть на главное окно "Диспетчера задач Windows", то окно "Выбора столбцов" отловит и запретит потерю фокуса, ну и мигнет несколько раз.
Задача:
1) Как мне также отловить и запретить потерю фокуса, у определенного окна? (исходники приветствуются... )
2) Я сказал: "...ну и мигнет несколько раз."
Здесь, точно, не используется FlashWindow, т.к. за 1 сек. окно мигает 3-4 раза, а FlashWindow за 1 сек. дает 1 мигание.
Как сделать 3-4 мигания за 1 сек.?
Заранее благодарен.

[Gemini]

Сделай две формы.
Form1:

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

Private Sub Command1_Click()
Form2.Show vbModal, Me
End Sub


Form2:

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


Private Sub Flash()
Dim i As Integer

For i = 0 To 25
  FlashWindow Me.hwnd, 1
  Sleep 30
Next

End Sub

Private Sub Form_LostFocus()
Flash
End Sub


[M.A.R.K]

1) Gemini, благодарю!

P.S.
Ну знал я, что нужна модальная форма, да недознался...

2) Gemini, мне интересно, можно (через SubClass или Hook) сделать отлавливание/запрет потери фокуса?

[Gemini]

M.A.R.K

2) Gemini, мне интересно, можно (через SubClass или Hook) сделать отлавливание/запрет потери фокуса?

Зачем тебе это??? у тебя же есть Private Sub Form_LostFocus()

[M.A.R.K]

Зачем тебе это??? у тебя же есть Private Sub Form_LostFocus()

Согласен. Спасибо всем, все понятно.