For Each _row As DataGridViewRow In datagridview.Rows

 

        'searchRecords_refreshRow(_row)

        ' 上面以前，直接运行函数，太慢

        ' 下面现在，运行线程，快多了

         Dim t As Threading.Thread = New Threading.Thread(AddressOf searchRecords_refreshRow)

         t.SetApartmentState(Threading.ApartmentState.STA)

         t.IsBackground = True' 在后台运行（随宿主关闭而关闭）

                    t.Start(_row)

 

Next