VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnuWindow 
      Caption         =   "&Windows"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWinTile 
         Caption         =   "Tile"
      End
      Begin VB.Menu mnuWinCascadeV 
         Caption         =   "Cascade Vertical"
      End
      Begin VB.Menu mnuWinCascadeH 
         Caption         =   "Cascade Horizontal"
      End
   End
   Begin VB.Menu mnuFile 
      Caption         =   "File"
      Begin VB.Menu mnuForm1 
         Caption         =   "Form1"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'zie ook MSDN "MDI Forms"
'zie MSDN "Menu Control" voor menu
' use Tools :  menu editor in MDI form design mode

'andere forms in MDI moeten eigenschap 'MDI child = true " hebben
'da''s alles,
'danku Bill.

Private Sub mnuForm1_Click()
 'een nieuw obkect (fortm) aanmaken binnen MDI for
 
    Dim objForm As Form         'declareer een object, van type form
    Set objForm = New frmChild1 'creeer instantie van object form
    objForm.Show                'method : show
    
    'instantie is gecreeerd, obj mag vernietigd
    Set objForm = Nothing
    
    
End Sub

Private Sub mnuWinCascadeH_Click()
    MDIForm1.Arrange vbCascade
End Sub

Private Sub mnuWinCascadeV_Click()
    MsgBox "not available"
End Sub

Private Sub mnuWinTile_Click()
        MDIForm1.Arrange vbTileHorizontal
    
End Sub

Private Sub mnuWCascade_Click()
   ' Cascade child forms.
   frmMDI.Arrange vbCascade
End Sub

Private Sub mnuWTile_Click()
   ' Tile child forms (horizontal).
   frmMDI.Arrange vbTileHorizontal
End Sub
'sample
Private Sub mnuWArrange_Click()
   ' Arrange all child form icons.
   frmMDI.Arrange vbArrangeIcons
End Sub