Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Public Function IsItemChecked(ByVal combo As UltraCombo, ByVal dataValue As Object) As Boolean
Dim checkedRows As CheckedRowsCollection = combo.CheckedRows
Dim valueColumn As UltraGridColumn = IIf(combo.DisplayLayout.Bands(0).Columns.Exists(combo.ValueMemberResolved), combo.DisplayLayout.Bands(0).Columns(combo.ValueMemberResolved), Nothing)
If valueColumn Is Nothing Then Return False
' Iterate the CheckedRows collection and compare the value
' of each row therein to the specified value.
Dim row As UltraGridRow
For Each row In checkedRows
Dim cellValue As Object = row.Cells(valueColumn).Value
If Object.Equals(dataValue, cellValue) Then Return True
Next
Return False
End Function