Imports Infragistics.Win.UltraWinGrid
...
Private Sub Expand_All_Rows_in_WinGrid_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.UltraGrid1.DisplayLayout.ViewStyleBand = ViewStyleBand.OutlookGroupBy
Me.UltraGrid1.DisplayLayout.Bands(0).SortedColumns.Add("Country", False, True)
Me.UltraGrid1.DisplayLayout.Bands(0).SortedColumns.Add("City", False, True)
Me.UltraGrid1.Rows.ExpandAll(True)
End Sub