Private Function fMenuConfigDatei(sCase$)
 
    Select Case sCase
        Case "Enabled"
            With MDIMain.sevmnuMain.MenuItems
                .Item("open").Enabled = False
                .Item("new").Enabled = False
                .Item("close").Enabled = True
                .Item("print").Enabled = True
            End With
        Case "Disabled"
            With MDIMain.sevmnuMain.MenuItems
                .Item("open").Enabled = True
                .Item("new").Enabled = True
                .Item("close").Enabled = False
                .Item("print").Enabled = False
            End With
    End Select
 
End Function