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