VB.NET用子线程进行大批量数据传输，UI卡死，请高手指教。代码如下

Private Sub Run_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Run_btn.Click
Thread_Main = New Thread(AddressOf Templ_chark)
Thread_Main.Start()
Loop_Mark = True
End Sub
Public Sub Templ_chark()
While Loop_Mark = True
Me.Invoke(New Thread_New(AddressOf Main_loop))
End While
End Sub
Public Sub Main_loop()
Modbus_Comunication(DataGridView1(3, 0).Value.ToString)
End Sub
Private Sub Stop_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stop_btn.Click
Loop_Mark = False
Thread_Main.Abort()
End Sub

Modbus_Comunication为一个通讯函数，耗时较长。

试试这个怎么样，添加在子进程里面，就加在你批量传输代码里的每一个传输后面，也就是大批量中的每传输一个数据就暂停一下，而不是每一个大批量才暂停一下
System.Threading.Thread.Sleep(10) '让它走慢一点

试过My.Application.DoEvents没？加在while下一行 再看看别人怎么说的。