Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        DataGridView1.ColumnCount = 1
        DataGridView1.Columns(0).Name = "Product ID"
        DataGridView1.Columns(0).Width = 1000
        DataGridView1.RowTemplate.Height = 50
        Me.DataGridView1.Columns(0).DefaultCellStyle.WrapMode = _
          DataGridViewTriState.True
    End Sub 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        Dim Start1 As New Threading.Thread(AddressOf Aufgabe1)
        Start1.IsBackground = True
        Start1.Start()
    End Sub
 Private Sub Aufgabe1()
        Dim Zähler As Integer = 0
        Do
            Console.WriteLine("Schleife")
            Threading.Thread.Sleep(200)
            DataGridView1.Rows.Add(TextBox1.Text)
            Zähler += 1
        Loop Until Zähler = 100
    End Sub