Private Sub ThreadStarts()
  BeginInvoke(New MethodInvoker(AddressOf ClearRows))
End Sub
 
als auch:
 
Private Sub ThreadStarts()
  If dgv.InvokeRequired Then
     dgv.BeginInvoke(New MethodInvoker(AddressOf ClearRows))
  Else
     ClearRows()
  End If
End Sub
 
Private Sub ClearRows()
  dt.Rows.Clear()
End Sub