Public Class frmMain
 
Private Sub NeuesChildFenster(ByVal Titel As String, ByVal Farbe As Color, _
  ByVal Größe As Point,ByVal Bild As Bitmap)
Dim NeueChildForm As New Form()
NeueChildForm.MdiParent = Me
NeueChildForm.Text = Titel
NeueChildForm.Size = Größe
NeueChildForm.BackColor = Farbe
Dim picNew As New PictureBox
picNew.Image = Bild
picNew.Left = 12
picNew.Top = 12
picNew.Width = Größe.X - 12
picNew.Height = Größe.Y - 12
picNew.Anchor = AnchorStyles.Bottom & AnchorStyles.Left & AnchorStyles.Top & _
  AnchorStyles.Right
NeueChildForm.Controls.Add(picNew)
NeueChildForm.Show()
End Sub
 
Private Sub tsmiNeuesFenster_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles tsmiNeuesFenster.Click
End Sub
 
Private Sub tsmiAllesSchließen_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles tsmiAllesSchließen.Click
Dim VorhandeneChildForm As Form
For Each VorhandeneChildForm In Me.MdiChildren
VorhandeneChildForm.Close()
Next
End Sub
 
Private Sub tsmiNebeneinander_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles tsmiNebeneinander.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
 
Private Sub tsmiÜbereinander_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles tsmiÜbereinander.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
 
Private Sub tsmiUntereinander_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles tsmiUntereinander.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
 
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
NeuesChildFenster("Ein großes, grünes Fenster!", Color.Green, New Point(500, _
500),New Bitmap("C:\deinbild1.jpg"))
NeuesChildFenster("Ein sehr kleines, rotes Fenster!", Color.Red, New Point(100, _
100)New Bitmap("C:\deinbild2.jpg"))
NeuesChildFenster("Ein mittelgroßes, blaues Fenster!", Color.Blue, New Point( _
250, 250)New Bitmap("C:\deinbild3.jpg"))
NeuesChildFenster("Ein mittelgroßes, blaues Fenster!", Color.Blue, New Point( _
50, 50)New Bitmap("C:\deinbild4.jpg"))
End Sub
 
End Class