Ao abrir um MDI, tenho um formulario que precisa ficar quase sempre aberto. Como faço para que quando abrir outros formulários ele fique sempre por trás, mesmo se tiver ativo?

Obrigado por qualquer ajuda....abraços

Isto aqui deve resolver

 

Public Enum OpcaoOnTop
    OnOnTop = 1
    OffOnTop = 2
End Enum

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags_ As Long) As Long

Private Const conHwndTopmost = -1
Private Const conHwndNoTopmost = -2
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

'Para usá-la use a função abaixo:
Public Sub FormOnTop(gForm As Form, Opcao As OpcaoOnTop)
    Select Case Opcao
        Case 1
            SetWindowPos gForm.hwnd, -1, 0, 0, 0, 0, FLAGS
        Case 2
            SetWindowPos gForm.hwnd, -2, 0, 0, 0, 0, FLAGS
    End Select
End Sub

FormOnTop Form1, OffOnTop

Desculpe minha ignorância, mas não estou conseguindo faze-lo funcionar.

Coloquei todo o codigo num módulo...

...e essa lina no Load do Formulário em questão...

FormOnTop frmCalendario, OffOnTop

...só que se eu abrir outro formulário e clicar nele ele vai para a frente do mesmo jeito, eu preciso que ele fique sempres atraz dos demais...

 

Muito obrigado pela ajuda - desculpe não saber interpretar seu código

Alguem pode me ajudar, por favor?

Obrigado...