Как сделать окно "всегда поверх других", но только в рамках своего приложения. - VB

Т.е. есть главная форма Form1.
Вызываем форму Form2.

Private Sub Command1_Click()
  Form2.Visible = True
End Sub

Вне зависимости от того на чем фокус (Form1 или Form2), Form2 должна быть сверху.
Можно так (для Form2):

Private Sub Form_Activate()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE 'непотопляемое окно
End Sub

Но тогда Form2 будет поверх всех окон (включая чужие).
Надо, чтобы чужими окнами она таки топилась.
Как?

textual
                            Листинг программы 
                        
                            Form1.Show vbModeless, Form2

Оцени полезность:

14 голосов , оценка 4.214 из 5

Похожие ответы