Imports Infragistics.Win.UltraWinGrid
...
Class CustomMergedCellEvaluator Implements Infragistics.Win.UltraWinGrid.IMergedCellEvaluator
	Function ShouldCellsBeMerged(ByVal row1 As UltraGridRow, ByVal row2 As UltraGridRow, ByVal column As UltraGridColumn) As Boolean Implements IMergedCellEvaluator.ShouldCellsBeMerged
		Dim date1 As DateTime = DirectCast(row1.GetCellValue(column), DateTime)
		Dim date2 As DateTime = DirectCast(row2.GetCellValue(column), DateTime)
		' 基本の DateTime セル値の日付部分に基づいてセルをマージします。
		' 時刻部分は無視します。たとえば、"1/1/2004 10:30 AM" と
		' 1/1/2004 1:15 AM" は日付が同じであるため、両者はマージします。
		Return date1.Date = date2.Date
	End Function
End Class
Private Sub UltraGrid1_InitializeLayout(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) Handles ultraGrid1.InitializeLayout
	' MergedCellStyle プロパティを設定してマージされたセル機能を有効にします。
	' MergedCellStyle は、セルをマージする対象の列も指定します。
	e.Layout.Override.MergedCellStyle = MergedCellStyle.Always
	' MergedCellEvaluator プロパティを使用して、セルをマージするためのカスタム ロジック
	' を指定します。
	e.Layout.Bands(0).Columns("ShippedDate").MergedCellEvaluator = New CustomMergedCellEvaluator()
End Sub