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