Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived

        OGGETTOQUALSIASI.Invoke(New myDelegate(AddressOf SUBCHEAGGIORNALATEXTBOX), New Object() {})

End Sub

Public Delegate Sub myDelegate()
Public Sub SUBCHEAGGIORNALATEXTBOX()

End Sub