WPF

MapPolyline line = new MapPolyline();
            line.Stroke = new SolidColorBrush( Colors.Brown );
            line.StrokeThickness = 3;
            line.Locations = new LocationCollection();
            double lon = 114.219340787406, lat = 23.0518068854053;
            for ( int i = 0 ; i < 100 ; i++ )
            {
                int k = 1;
                if ( i % 2 == 0 )
                {
                    k = -1;
                }
                Location location = new Location( lat + k * 0.03, lon + 0.02 * i );
                line.Locations.Add( location );
            }

            this.myMapLayer.Children.Add( line );

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="350" Width="525">
    <Grid>
        <ScrollViewer HorizontalAlignment="Stretch" VerticalAlignment="Stretch" Name="ScrollViewer1">
            <Grid  Name="TestGrid">
           </Grid>
        </ScrollViewer>
    </Grid>
</Window>

Imports System.Windows.Documents

Class MainWindow

    Dim Riches As New Collection
    Dim WorkRange As TextRange

    Private Sub MainWindow_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded

        'HERE I'M FILLING THE RICHES COLLECTION WITH 200 RICHTEXTBOXES

        Dim RichRange As Long, NewRich As RichTextBox
        For RichRange = 1 To 200
            NewRich = New RichTextBox
            Riches.Add(NewRich)
        Next

    End Sub


    Private Sub MainWindow_PreviewMouseDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles Me.PreviewMouseDown

        Me.Title = "Start"

        With TestGrid
            .RowDefinitions.Clear()
            .Children.Clear()

            Dim RowRange As Long
            For RowRange = 1 To 200
                .RowDefinitions.Add(New RowDefinition)

                Dim HeaderCell As RichTextBox
                HeaderCell = Riches(RowRange)

                With HeaderCell


                    WorkRange = New TextRange(.Document.ContentStart, .Document.ContentEnd)
                    WorkRange.Text = "Poo " & CStr(RowRange)

                End With

                .Children.Add(HeaderCell)
                .SetRow(HeaderCell, RowRange - 1)
                .SetColumn(HeaderCell, 0)

            Next
        End With

        GC.Collect()

        Me.Title = "Stop"

    End Sub
End Class

<DataGridTemplateColumn
                    Header="Street Name"
                    Width="77">
                    <DataGridTemplateColumn.CellTemplate>
                        <DataTemplate>
                            <TextBlock
                                Text="{Binding street}" />
                        </DataTemplate>
                    </DataGridTemplateColumn.CellTemplate>
                    <DataGridTemplateColumn.CellEditingTemplate>
                        <DataTemplate>
                            <TextBox
                                Text="{Binding street, ValidatesOnDataErrors=True,UpdateSourceTrigger=PropertyChanged}" />
                        </DataTemplate>
                    </DataGridTemplateColumn.CellEditingTemplate>
                </DataGridTemplateColumn>

<DataGridTemplateColumn
                    Header="State"
                    Width="60">
                    <DataGridTemplateColumn.CellTemplate>
                        <DataTemplate>
                            <TextBlock
                                Text="{Binding PropertyState.name}" />
                        </DataTemplate>
                    </DataGridTemplateColumn.CellTemplate>
                    <DataGridTemplateColumn.CellEditingTemplate>
                        <DataTemplate>
                            <ComboBox
                                ItemsSource="{Binding RelativeSource={RelativeSource FindAncestor, AncestorType={x:Type UserControl}},Path=DataContext.PropertyStates, ValidatesOnDataErrors=True,UpdateSourceTrigger=PropertyChanged}"
                                DisplayMemberPath="name"
                                SelectedValuePath="id"
                                SelectedValue="{Binding stateId}" />
                        </DataTemplate>
                    </DataGridTemplateColumn.CellEditingTemplate>
                </DataGridTemplateColumn>