Public Class clsButtonBar
 
  Private blSchonGeladen As Boolean
  Private myList As New List(Of clsButtonBarItem)
 
  Public Function Items() As List(Of clsButtonBarItem)
 
    Dim szSQL As String
    Dim myData As DataTable
 
    If blSchonGeladen = False Then
      szSQL = "SELECT * FROM tblButtonBar ORDER BY btnGruppe"
      myData = myDBLayer.OpenDataTable(szSQL)
      If Not myData Is Nothing Then
 
        For n1 As Integer = 0 To myData.Rows.Count - 1
          myList.Add(New clsButtonBarItem With {.Gruppe = myData.Rows(n1).Item( _
            "btnGruppe").ToString, .Name = myData.Rows(n1).Item( _
            "btnName").ToString})
        Next
 
      End If
      blSchonGeladen = True
    End If
 
    Return myList
 
  End Function
 
  Public Sub Refresh()
    blSchonGeladen = False
  End Sub
 
  Public Class clsButtonBarItem
 
    Private _Gruppe As String
    Public Property Gruppe() As String
      Get
        Return _Gruppe
      End Get
      Set(ByVal value As String)
        _Gruppe = value
      End Set
    End Property
 
    Private _Name As String
    Public Property Name() As String
      Get
        Return _Name
      End Get
      Set(ByVal value As String)
        _Name = value
      End Set
    End Property
 
  End Class
 
End Class

Dim myItems As New PWKV1CLS.clsButtonBar
For n1 As Integer = 0 To myItems.Items.Count - 1
 
      If szGruppe <> myItems.Items(n1).Gruppe Then
        myGroup = OutBar.GroupItems.Add(myItems.Items(n1).Gruppe)
        szGruppe = myItems.Items(n1).Gruppe
      End If
      If Not myGroup Is Nothing Then
        myGroup.MenuItems.Add(myItems.Items(n1).Name)
      End If
 
    Next