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