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