APPLICATION MDI

'Placé ce qui suit dans un MODULES
Public Declare Function SetParent Lib "user32" (ByVal hwndchild As Long, ByVal hwndparent As Long) As Long

'Placé ce qui suit dans la form1
Private Sub Form_Load()
      Form2.show
End Sub

'Placé ce qui suit dans la form2 pour quelle apparaisse dans la form1
Private Sub Form_Load()
      SetParent Me.hWnd, form1.hwnd
      Form3.show
End Sub

'Placé ce qui suit dans la form3 pour quelle apparaisse dans la form2
Private Sub Form_Load()
      SetParent Me.hWnd, form2.hwnd
End Sub