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为一个通讯函数,耗时较长。