Private Function fMenuConfigWindow(sCase$)
Dim i As Long
    Select Case sCase
        Case "Enabled"
            With sevmnuMain.MenuItems("mnuWindow")
                For i = 0 To .Children - 1
                    .ChildItem(i).Enabled = True
                Next i
            End With
        Case "Disabled"
            With sevmnuMain.MenuItems("mnuWindow")
                For i = 0 To .Children - 1
                    .ChildItem(i).Enabled = False
                Next i
            End With
    End Select
End Function