Public Class frmBackground
 
    Dim dt As New DataTable
    Dim dt_display As DataTable
 
    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
 
        For i As Integer = 1 To 100
            dt.Rows.Add(dt.NewRow)
        Next i
 
        dt_display = dt.Copy
        dgv.DataSource = dt_display
 
        Me.Size = New Size(500, 500)
        Me.Show()
 
        'Prozess für schnelle Datenerzeugung
        createdata.Start()
 
    End Sub
 
 
    Private Sub CreateDataRows()
 
        Dim id, rowindex As Integer
        Dim lasttime As DateTime
        Do
            id += 1 : rowindex += 1
            If rowindex = dt.Rows.Count Then
                'Umlaufender Index der Tabellenzeilen
                rowindex = 0
            End If
 
            'Zeile neu mit Daten füllen 
            Dim row As DataRow = dt.Rows(rowindex)
            row(0) = id
            For i As Integer = 1 To 10
                row(i) = i.ToString & ": " & id.ToString
            Next i
 
            If Date.Now.Ticks - lasttime.Ticks > _
                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()
 
        dgv.DataSource = Nothing
 
        dt_display.Dispose()
        'Datentabelle für Anzeige klonen
        dt_display = dt.Copy
 
        dgv.DataSource = dt_display
    End Sub
End Class

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

Public Class frmBackground_II
 
    Dim dt As New DataTable
    Dim bs As New BindingSource With {.RaiseListChangedEvents = True}
 
    Dim dgv As New DataGridView With {.Parent = Me, .DataSource = bs, _
                         .AllowUserToAddRows = False, .ReadOnly = True}
 
 
    Dim createdata As New Threading.Thread(AddressOf CreateDataRows)
 
 
    Private Sub frmBackground_II_Load(sender As System.Object, _
                            e As System.EventArgs) Handles MyBase.Load
 
        Me.DoubleBuffered = True
 
        'Tabellen-Spalten erstellen
        dt.Columns.Add("ID", GetType(Integer))
        For i As Integer = 1 To 10
            dt.Columns.Add("SP" & CStr(i))
        Next i
 
        Me.Size = New Size(500, 500)
        Me.Show()
 
        bs.DataSource = dt
 
        'Prozess für schnelle Datenerzeugung
        createdata.Start()
 
 
    End Sub
 
 
    Private Sub CreateDataRows()
        Dim rndm As New Random, id, lastid As Integer
 
        Do
            id += 1
            Dim waittime As Integer = CInt(rndm.NextDouble * 10)
            Threading.Thread.Sleep(waittime)
 
            '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 id > lastid + 20 Then
                Me.Invoke(New MethodInvoker(AddressOf showdata))
                lastid = id
            End If
        Loop While id < 100000
    End Sub
 
 
    Private Sub showdata()
        SyncLock bs.SyncRoot
            bs.ResetBindings(False)
            dgv.Update()
            dgv.FirstDisplayedScrollingRowIndex = bs.Count - 1
        End SyncLock
    End Sub
End Class