To reproduce:
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For index = 1 To 10
            Dim Temp As New RadButtonElement
            Temp.Image = Image.FromFile("C:\Program Files (x86)\Telerik\RadControls for WinForms Q3 2012\Examples\QuickStart\Resources\1RibbonMenuNewMagenta.png")
            Temp.TextImageRelation = TextImageRelation.ImageAboveText
            Temp.ImageAlignment = ContentAlignment.MiddleCenter
            Temp.Text = "Test"
            RadRibbonBarGroup1.Items.Add(Temp)
        Next

        'workaround
        'RadRibbonBar1.RibbonBarElement.ElementTree.ApplyThemeToElement(RadRibbonBar1.RibbonBarElement)
    End Sub