Dim child_DboxIRSignal As New Dbox_IR_Signale
    Dim child_DboxTimer As New Dbox_Timer
    Dim child_Wettervorschau As New Wetter_Vorschau
    Dim child_SprachausgabeWetter As New Sprachausgabe_Wetter
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        child_DboxIRSignal.MdiParent = Me
        child_DboxIRSignal.Dock = DockStyle.Fill
 
        child_DboxTimer.MdiParent = Me
        child_DboxTimer.Dock = DockStyle.Fill
 
        child_Wettervorschau.MdiParent = Me
        child_Wettervorschau.Dock = DockStyle.Fill
 
        child_SprachausgabeWetter.MdiParent = Me
        child_SprachausgabeWetter.Dock = DockStyle.Fill

For Each f As Form In Me.MdiChildren
 
            If f.Tag = e.Item.Caption Then
                f.Show()
 
            Else
                f.Hide()
            End If
        Next