Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub Button67_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button67.Click
' Get the first child row of the first row in the UltraGrid.
Dim childRow As UltraGridRow = Me.ultraGrid1.Rows(0).GetChild(Infragistics.Win.UltraWinGrid.ChildRow.First)
' Ensure the Hidden property is set to false which it should be by default
' but just in case.
childRow.Hidden = False
' Collapse the parent row.
childRow.ParentRow.Expanded = False
' Write out the Hidden and HiddenResolved properties. Hidden should be false
' just like we set it to above, however HiddenResolved should be true since
' its parent row is collapsed.
Debug.WriteLine("childRow.Hidden = " & childRow.Hidden)
Debug.WriteLine("childRow.HiddenResolved = " & childRow.HiddenResolved)
End Sub