Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
    Private Sub ultraListView1_ItemActivating(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinListView.ItemActivatingEventArgs) Handles ultraListView1.ItemActivating
        Dim listView As UltraListView = CType(sender, UltraListView)
        Dim oldActiveItem As UltraListViewItem = listView.ActiveItem
        Dim newActiveItem As UltraListViewItem = e.Item
        '	If the item that is about to be activated belongs to
        '	a different group than the last active item, reset
        '	the last active group's appearance
        If Not oldActiveItem Is Nothing AndAlso _
          Not oldActiveItem.Group Is Nothing AndAlso _
          Not newActiveItem.Group Is Nothing AndAlso _
            Not oldActiveItem.Group Is newActiveItem.Group Then
            oldActiveItem.Group.ResetAppearance()
        End If
    End Sub
    Private Sub ultraListView1_ItemActivated(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinListView.ItemActivatedEventArgs) Handles ultraListView1.ItemActivated
        '    Set the ForeColor of the new ActiveItem's Group's Appearance to red.
        If Not e.Item.Group Is Nothing Then e.Item.Group.Appearance.ForeColor = Color.Red
    End Sub