Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub Button131_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button131.Click
Dim column As UltraGridColumn = Me.UltraGrid1.DisplayLayout.Bands(0).Columns(0)
Debug.WriteLine("Columns in visible order: ")
' Get the first visible column by passing in VisibleRelation.First.
column = column.GetRelatedVisibleColumn(VisibleRelation.First)
While Not column Is Nothing
Debug.WriteLine(" " & column.Key)
' Get the next visible column by passing in VisibleRelation.Next.
column = column.GetRelatedVisibleColumn(VisibleRelation.Next)
End While
End Sub