Option Explicit
 
Sub Form_Load()
 
    Dim oMenu As sevMenuXP.MenuItem
    With MenuBar1.MenuItems
      Set oMenu = .Add("Start", "Start")
      MenuBar1.Style = mnuOffice2003
      .Add "Starte Form 1", "Form1", oMenu
    End With
 
End Sub
 
Private Sub MenuBar1_ItemClick(ByVal Item As sevMenuXP.MenuItem)
Select Case Item.Key
 
    Case Is = "Form1"
      Call MenuAbblenden
        Dim i As Integer
        Dim u As Integer
        For i = 1 To 50
            For u = 1 To 10000
                DoEvents
                u = u + 1
            Next u
            i = i + 1
        Next i
        Form1.Show 1
        Unload Form1
        Set Form1 = Nothing
      Call MenuEinblenden
 
End Select
End Sub
 
Sub MenuAbblenden()
MenuBar1.MenuItems("Start").Enabled = False
MenuBar1.MenuItems("Form1").Enabled = False
End Sub
 
Sub MenuEinblenden()
MenuBar1.MenuItems("Start").Enabled = True
MenuBar1.MenuItems("Form1").Enabled = True
End Sub