Private Sub Men_Fenster_Beiträge_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles Men_Fenster_Beiträge.Click
 
        Dim F2 As New Beitrag_KFZ_Auswahl                            _
          'Beitragseingabe wird geladen
        F2.MdiParent = Me.MdiParent
 
        For Each F As Form In Me.MdiChildren
 
            F.Close()
 
        Next
 
        F2.Show()
    End Sub