Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub Button140_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button140.Click
Dim band As UltraGridBand = Me.UltraGrid1.DisplayLayout.Bands(0)
' Clear any sorting.
band.SortedColumns.Clear()
Debug.WriteLine("Before: " & band.HasSortedColumns)
' Sort the rows by the first column.
band.SortedColumns.Add(band.Columns(0), False)
Debug.WriteLine("After: " & band.HasSortedColumns)
End Sub