Sub ComboboxOlaylari(control As IRibbonControl, strText As String)
   Select Case control.Id
 
     ' Case "cmbx49" 'Combobox id'si kullanılarak yapı oluşturulur..
 
      Case Else
 MsgBox "Kutudan " & strText & " değerini seçtiniz.." & Chr(13) & _
      Chr(13) & "ID: " & control.Id, vbInformation, "Taruz"
 
    End Select
 
End Sub

<comboBox id="cmb54" label="Açılan Kutu :" on Change="ComboboxOlaylari">
<!-- on Change birleşik yazılacak -->
  <item id="combotbtn5" label="Öğe 1" /> 
  <item id="combotbtn6" imageMso="HappyFace" label="Öğe 2" /> 
  <item id="combotbtn7" imageMso="SortUp" label="Öğe 3" /> 
</comboBox>