Public Class frmBackground
 
    Dim dt As New DataTable  'fortlaufende Tabelle
    Dim dt_display As DataTable
 
    'anzuzeigende Zahl der Zeilen
    Const RowsToDisplay As Integer = 200
 
    Dim dgv As New DataGridView With _
        {.Parent = Me, .Width = 400, .Height = 400}
 
    Dim createdata As New Threading.Thread(AddressOf CreateDataRows)
 
 
    Private Sub frmBackground_Load(sender As System.Object, _
                             e As System.EventArgs) Handles MyBase.Load
 
        'Spalten und Zeilen erstellen
        dt.Columns.Add("ID", GetType(Integer))
        For i As Integer = 1 To 10
            dt.Columns.Add("SP" & CStr(i))
        Next i
 
        'Tabellenschema übertragen
        dt_display = dt.Clone
 
        Me.Size = New Size(500, 500)
        Me.Show()
 
        'Prozess für schnelle Datenerzeugung
        createdata.Start()
 
    End Sub
 
 
    Private Sub CreateDataRows()
 
        Dim id As Integer
        Dim lasttime As DateTime
        Do
            id += 1
 
            'neue Zeile mit Daten füllen 
            Dim row As DataRow = dt.NewRow
            row(0) = id
            For i As Integer = 1 To 10
                row(i) = i.ToString & ": " & id.ToString
            Next i
            dt.Rows.Add(row)
 
            If Date.Now.Ticks - lasttime.Ticks > _
                5 * TimeSpan.TicksPerSecond Then
 
                'In Intervallen die aktuellen Daten anzeigen
                Me.Invoke(New MethodInvoker(AddressOf Displaydata))
                lasttime = Date.Now
            End If
        Loop While id < 10000000
    End Sub
 
 
    Private Sub Displaydata()
        'Datenbindung unterbrechen
        dgv.DataSource = Nothing
        'Display-Table im Hintergrund füllen
        Dim fill As New Threading.Thread(AddressOf FillDisplayTable)
        fill.Start()
    End Sub
 
 
    Private Sub FillDisplayTable()
 
        Dim lastindex As Integer = dt.Rows.Count - 1
        Dim startindex As Integer = _
            Math.Max(lastindex - RowsToDisplay, 0)
 
        dt_display.Clear()
 
        For i As Integer = startindex To lastindex
            dt_display.ImportRow(dt.Rows(i))
        Next i
 
        'Datenbindung herstellen
        Me.Invoke(New MethodInvoker(AddressOf ShowData))
    End Sub
 
 
    Private Sub ShowData()
        dgv.DataSource = dt_display
        dgv.FirstDisplayedScrollingRowIndex = _
          dt_display.Rows.Count - 1
    End Sub
End Class