'本例是一个窗口在调用serialport时，回到主线程调用textBox控件

’这个是在一个过程中的片段，首先，第一步 创建线程

If SerialPort1.BytesToRead <> 0 Then@H_404_13@ Rtxt = SerialPort1.Read(Rbyt,1)@H_404_13@ Dim Nthread As New Threading.Thread(AddressOf ShowTextInvoke)@H_404_13@ Nthread.Start()@H_404_13@ End If

'第二步 调用过程

Public Sub ShowTextInvoke()@H_404_13@ Me.Invoke(New VoidDelegate(AddressOf ShowText))@H_404_13@ End Sub

'第三步 声明委托实例

Public Delegate Sub VoidDelegate()

'第四步调用真正的过程

Public Sub ShowText()@H_404_13@ Me.Rtext.Text = Rtxt

End Sub