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