Public Class frmMain
 
    Private Sub NeuesChildFenster(ByVal Titel As String, ByVal Farbe As Color, _
      ByVal Größe As Point)
 
        Dim NeueChildForm As New Form()
 
        NeueChildForm.MdiParent = Me
 
        NeueChildForm.Text = Titel
        NeueChildForm.BackColor = Farbe
        NeueChildForm.Size = Größe
 
        NeueChildForm.Show()
 
    End Sub
 
    Private Sub NeuesBildfenster(ByVal Titel As String, ByVal Größe As Point, _
      ByVal Position As Point)
 
        Dim NeuesChildfenster As New Form()
        Dim NeuesBild As New PictureBox()
 
        NeuesChildfenster.MdiParent = Me
 
        NeuesChildfenster.Text = Titel
        NeuesChildfenster.Size = Größe
 
        NeuesBild.Image = My.Resources.Bibel_Land
        NeuesBild.SizeMode = PictureBoxSizeMode.StretchImage
        NeuesBild.Dock = DockStyle.Fill
 
        NeuesChildfenster.Controls.Add(NeuesBild)
 
        NeuesChildfenster.Show()
 
        NeuesChildfenster.Location = Position
 
    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.White, New 
        ' Point(500, 500))
        'NeuesChildFenster("Ein sehr kleines, rotes Fenster!", Color.Red, New 
        ' Point(100, 100))
        'NeuesChildFenster("Ein mittelgroßes, blaues Fenster!", Color.Blue, New 
        ' Point(250, 250))
 
        'NeuesChildFenster("Das ist eine hübsche Form.", Color.MintCream, New 
        ' Point(300, 240))
 
    End Sub
 
    Private Sub tsmiNeuesChildfenster_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles tsmiNeuesChildfenster.Click
 
        NeuesChildFenster("Ein neues Childfenster", Color.BlueViolet, New Point( _
          250, 350))
 
    End Sub
 
    Private Sub tsmiNeuesBildfenster_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles tsmiNeuesBildfenster.Click
 
        NeuesBildfenster("Ein Bildfenster", New Point(200, 200), New Point(300, _
          300))
 
    End Sub
 
    Private Sub tsmiVorgegeben_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tsmiVorgegeben.Click
 
        Dim Form As New frmVordefiniert()
 
        Form.MdiParent = Me
 
        Form.Show()
 
 
    End Sub
 
End Class