Private Sub Form_Load()
  Dim nIndex As Long
  Dim oGrp As sevOutBar4.GroupItem
 
  Call OutBar1.Clear
 
  Set oGrp = OutBar1.AddGroup("Testgrupp", "tg")
  Call oGrp.Clear
  oGrp.ItemDisplayStyle = DisplayStyleMenu
 
  For nIndex = 1 To 10
    Call oGrp.AddItem("Eintrag" & nIndex, CStr(nIndex))
  Next nIndex
End Sub
 
Private Sub OutBar1_ItemClick(ByVal Group As Long, ByVal Item As Long, Button _
  As Integer)
  Call OutBar1.Groups(Group).Items(Item).SetChecked(True)
End Sub
 
Private Sub OutBar1_ItemDblClick(ByVal Group As Long, ByVal Item As Long)
  Call OutBar1.Groups(Group).RemoveItem(Item)
End Sub