Imports Infragistics.Windows.DataPresenter
'xamDataCards
Me.xamDataCards1.ViewSettings.ShouldCollapseEmptyCells = True
'xamDataPresenter
Dim cardView1 As CardView = TryCast(Me.xamDataPresenter1.View, CardView)
If cardView1 IsNot Nothing Then
cardView1.ShouldCollapseEmptyCells = True
End If