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

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

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

'第二步 调用过程

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

'第三步 声明委托实例

Public Delegate Sub VoidDelegate()

'第四步调用真正的过程

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

End Sub