Public Sub PopUp_Verpackung()
 
        Dim nItem As Long
        Dim loPopUp As sevPopUp.PopUp
        loPopUp = New sevPopUp.PopUp
 
 
        With loPopUp
            .Clear()
            .Init(INI.LizenzNr(1, ""))
 
            .AddItem("Verpackung hinzufügen", "mnuNeu", 6608, ( _
              Me.SevButton_VerpackungNeu.Enabled))
            .AddItem("Verpackung ändern", "mnuÄndern", 6608, ( _
            Me.SevButton_VerpackungÄndern.Enabled))
            .AddItem("Verpackung löschen", "mnuLöschen", 6608, ( _
            Me.SevButton_VerpackungLöschen.Enabled))
...