Private Sub mainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To 16
            Dim button As DevComponents.DotNetBar.ButtonItem = New DevComponents.DotNetBar.ButtonItem
            button.Name = "Id_" & i
            button.Text = CStr(i) & "               " & "Colonna 1" & "               " & "Colonna 2" & "               " & "Colonna 3"
            button.Image = Button0.Image
            button.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
            button.OptionGroup = "Group"
            AddHandler button.Click, New EventHandler(AddressOf button_click)
            AddHandler button.MouseUp, New EventHandler(AddressOf button_MouseUp)
            Me.InnerContainer.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {button})
        Next
    End Sub

    Private Sub button_click(ByVal sender As Object, ByVal e As System.EventArgs)
        Label1.Text = (CType(sender, DevComponents.DotNetBar.ButtonItem).Name.ToString)
    End Sub

    Private Sub button_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventHandler)
        Label1.Text = (CType(sender, DevComponents.DotNetBar.ButtonItem).Name.ToString)
    End Sub