Mostrar siempre un formulario

[franko1809]

Tengo un formulario MDI y otro form llamado frmCargo el problema es que no lo quiero declarar como MDIChild a este ultimo, por x motivos

Lo que quiero hacer es, al ejecutar la aplicacion oviamente se ejecuta el MDIForm desde el cual se llamara al frmCargo, pero este siempre se mantendra visible es decir delante del MDIForm aunque se seleccione el MDIForm

El problema ocurre cuando ambos formularios estan habiertos y al selecionar uno se pone delante del otro, como hago para que el mdi siempre se quede al fondo y el frmcargo delante, logicamente el mdi ocupa toda la pantalla y frmcargo es mas pequeño

saludos y espero me puedan ayudar estoy seguro que se trata solo de activar una propiedad

[fede_rosario]

lo que yo hago es en el mdi cuando elegis una solapa del menu es esto:

Private Sub mnuaudi_Click()
MDIForm1.Enabled = False ' aca lo inabilito al mdi
frmauditoria.Show
End Sub
y cuando el form frmauditoria se cierra le pones lo contrario no osea
MDIForm1.Enabled = True
entonces cuando abras otro form desde el mdi cuando quieras volver al mdi no te lo permite

[MartinZan]

Yo utilizaria la funcion AlwaisOnTop (siempre arriba)

Codigo para el form frmCargo:

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
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40

Public Sub AlwaisOnTop(f As Form, estado As Boolean)
Dim wflags As Long
Dim ret As Long
'para que no cambie el tamaño ni la posición
wflags = SWP_NOMOVE Or SWP_NOSIZE
If estado Then
ret = SetWindowPos(f.hwnd, HWND_TOPMOST, 0, 0, 0, 0, wflags)
Else
ret = SetWindowPos(f.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, wflags)
End If
End Sub

Private Sub Form_Load()
AlwaisOnTop Me, True
End Sub