Создать дочернюю форму без фокуса

[MIT]

Собственно сабж. Немного поясню: есть форма, которая при обработке некоего события (пусть это будет клик) создает дочернюю форму. Надо сделать так, что бы создаваемая форма не получила фокус после создания. Сейчас обхожусь так:

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

frm.Show
Me.Focus

что, в общем-то эквивалентно, но тогда прихоисходит лишнее событие LostFocus, чего необходимо избежать.

Как избежать передачи фокуса?

[MIT]

Форма создается с такими параметрами:

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

    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = (cp.ExStyle Or 524288 Or &H80)
            Return cp
        End Get
    End Property

Попробовал следующие методы:

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

    Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
        Get
            Return True
        End Get
    End Property

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

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_MOUSEACTIVATE Then
            m.Result = MA_NOACTIVATE
            Return
        End If
        MyBase.WndProc(m)
    End Sub

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

    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = (cp.ExStyle Or 524288 Or &H80 Or 4 Or &H10)
            Return cp
        End Get
    End Property

Ни один из них не "прокатил"

[MIT]

Правильный вариант - первый - он как раз для этого и сделан. У меня же он не работал по причине использования .TopMost = true, соответственно вопрос можно переформулировать: как не передавать фокус TopMost-форме?