Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Dim ReceivedData As String = " " Try ReceivedData = SerialPort1.ReadLine Catch ex As Exception ReceivedData = ex.Message End Try Dim adre As New DataDelegate(AddressOf PrintData) Me.Invoke(adre, ReceivedData) End Sub