How can I display a form within a form?

[Rev. Michael L. Burns]

Can someone show me how to display a form within a form.

I do not wish to use a MDI interface for my current project but would like my main form to be always open and displayed with selected forms opened and embedded in my main form.

The main form has an outlook style listbar on the left side of the form. What I want to do is display the form selected by the user from the listbar to the right of the listbar. I don't want it to merely be on top of the main form but to be displayed in it, similar to a subform but without the scroll bars.

I saw a tip on VB Tips and Tricks about this but never have been able to get it to works. I downloaded a free subform ocx from somewhere a wile back and it worked great for what I want but since it is designed as a subform controls it assumes you always want scroll bars but I don't. My forms will be sized to the area to the right of the listbar. The main form will not be resized.

Any help here would be greatly appreciated.

Thanks, Rev. Michael L. Burns

[peet]

Hi Michael, try the code posted below, and see if that is what u'r after.

'Sample, start a new project, add two forms then add this code to them
'in Form1 add this code
Option Explicit
 
Private Sub Form_Load()
    Load Form2
    Form2.Show
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim f As Form
    For Each f In Forms
        Unload f
        Set f = Nothing
    Next f
End Sub
 
 
 
'in Form2 add this code
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
 
Private Sub Form_Load()
    Dim l As Long
    l = SetParent(Me.hWnd, Form1.hWnd)
End Sub

[Rev. Michael L. Burns]

Peet,

Thanks for the quick reply. That would do but I wanted to embed the second form inside the first.

I just found and example project that seems to do what I want. I have attached it for you so that you can see what I was looking for.

Thanks again for your quick reply.

Michael