Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
Private Sub ConfigureSubItemToolTips(ByVal listView As UltraListView)
listView.ItemSettings.SubItemsVisibleInToolTipByDefault = False
Dim visiblePosition As Integer = 0
Dim column As UltraListViewSubItemColumn
For Each column In listView.SubItemColumns
If column.VisibleInDetailsView = DefaultableBoolean.True Then
column.VisibleInToolTip = DefaultableBoolean.True
column.VisiblePositionInToolTip = visiblePosition
visiblePosition += 1
Else
column.VisibleInToolTip = DefaultableBoolean.Default
End If
Next
End Sub