Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
    Private Sub ultraListView1_ColumnSorting(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinListView.ColumnSortingEventArgs) Handles ultraListView1.ColumnSorting
        '	If the column's DataType is integer, disallow the sort.
        If e.Column.DataType Is GetType(Integer) Then
            e.Cancel = True
        Else
            '	If the new value is 'None', change it to 'Ascending'.
            If (e.NewValue = Sorting.None) Then e.NewValue = Sorting.Ascending
        End If
    End Sub
    Private Sub ultraListView1_ColumnSorted(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinListView.ColumnSortedEventArgs) Handles ultraListView1.ColumnSorted
        Me.lblSortStatus.Text = e.Column.TextResolved
    End Sub