<dropDown id="drpdwn55" label="Seçme Kutusu :" imageMso = "ChartInsert" 
onAction="DropDownboxOlaylari" >
  <item id="drpdwnitem8"  label="Öğe 1" imageMso = "ConditionalFormattingTopNItems" />
  <item id="drpdwnitem9"  label="Öğe 2" imageMso = "ConditionalFormattingTopNPercent" />
</dropDown>

Sub DropDownboxOlaylari(control As IRibbonControl, selectedId As String, _
                             selectedIndex As Integer)
   Select Case control.Id
 
     ' Case "drdbx49" 'DropDown id'si kullanılarak yapı oluşturulur..
 
      Case Else
 MsgBox "Kutudan " & selectedIndex + 1 & ". sıradaki öğeyi seçtiniz.." & Chr(13) & _
      Chr(13) & "ID: " & control.Id, vbInformation, "Taruz"
 
    End Select
 
End Sub