WPF

User: ReportingUser varchar(20) primary key
Reporting: ReportingCode varchar(20) primary key, ReportingName varchar(20)
ReportingUser: ReportingUser varchar(20), ReportingCode varchar(20)

<ListBox Name="listBoxUsers" IsSynchronizedWithCurrentItem="True" ItemsSource="{Binding}" DisplayMemberPath="ReportingUser" />
<ListBox Grid.Row="1" Name="listBoxSelectedReporting" ItemsSource="{Binding User_ReportingUser}"
   DisplayMemberPath="Row.ReportingRow.ReportingName" />

userAdapter = new UserTableAdapter();
reportingUserAdapter = new ReportingUserTableAdapter();
reportingTableAdapter = new ReportingTableAdapter();
dataset = new DNLMHDataSet();
userAdapter.Fill(dataset.User);
reportingTableAdapter.Fill(dataset.Reporting);
reportingUserAdapter.Fill(dataset.ReportingUser);
listBoxUsers.DataContext = dataset.User;
listBoxSelectedReporting.DataContext = dataset.User;

SELECT     ReportingCode, ReportingName
FROM         Reporting AS r
WHERE     (NOT EXISTS (
  SELECT ReportingCode
  FROM ReportingUser AS u
  WHERE(ReportingCode = r.ReportingCode) AND (ReportingUser = @ReportingUser)))

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