Seriak ve VB 2017

[Ladislav Vaiz]

> Tak teď musím ještě zjistit, jak se to Invoke používá ve VB.

http://converter.telerik.com/

Takže asi:

Private Sub Recv(sender As Object, e As SerialDataReceivedEventArgs)
     Dim indata As String = sp2.ReadExisting()
     Me.Invoke(DirectCast(Sub() Label1.Text = indata, MethodInvoker))
End Sub

L.