gistfile1.txt

Imports GridApp.Data

Public Class MyGridView
    Inherits GridView

    Protected Overrides Sub PrepareContainerForItemOverride(element As DependencyObject, item As Object)

        Dim viewModel = DirectCast(item, SampleDataCommon)

        element.SetValue(VariableSizedWrapGrid.ColumnSpanProperty, viewModel.ColumnSpan)
        element.SetValue(VariableSizedWrapGrid.RowSpanProperty, viewModel.RowSpan)

        MyBase.PrepareContainerForItemOverride(element, item)
    End Sub

End Class