OutBar.BeginUpdate()
 
      With Me.OutBar.GroupItems(1)
 
        Dim intHG As Integer = -1
        Dim intUG As Integer = -1
 
        ' Alle SML werden gelesen
        For Each DR As DataRow In dsSMLOutBar.Tables("SMLOutBar").Rows
 
          ' Ausgeben der Hauptgruppen
          If DR("HauptgruppenIdent") <> intHG Then
            Dim HGMenuItem As sevSoft.OutBar.MenuItem = New _
              sevSoft.OutBar.MenuItem
            With HGMenuItem
              .Tag = DR("SMLIdent")
              .Text = DR("HauptGruppe")
              .Key = DR("SMLIdent")
              .ToolTipTitle = "Hauptgruppe"
              .ToolTipText = DR("HauptGruppe")
              .ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info
              .FontBold = True
              .Visible = True
              .Enabled = False
            End With
            .MenuItems.Add(HGMenuItem)
 
            intHG = DR("HauptgruppenIdent")
          End If
 
 
          Dim strStern As String = "" 
 
          Dim MenuItem As sevSoft.OutBar.MenuItem = New sevSoft.OutBar.MenuItem
          With MenuItem
            .Tag = DR("SMLIdent")
            .Text = IIf(DR("GlobalSML") = True, "  " & DR("Bezeichnung") & "" & _
              "<Global>", "  " & DR("Bezeichnung")) & "  " & strStern
            .Key = DR("SMLIdent")
            .ToolTipText = DR("Bezeichnung")
            .ToolTipTitle = "SML-Nr: " & DR("SMLNummer")
            .ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info
            .Enabled = IIf(DR("Anzahl") > 0, True, False)
          End With
          .MenuItems.Add(MenuItem)
 
        Next
 
      End With
 
      OutBar.EndUpdate()