'Se declara 1 delegado_Tendra como dato de referencia una variable data del tipo Byte
Delegate Sub delegado(ByVal data As Byte
...........
Private Sub sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
Dim recepcion As Byte
recepcion = sp.ReadByte
Dim escribeport As New delegado(AddressOf Me.mostrar)
Me.Invoke(escribeport, recepcion)
End Sub
Sub mostrar(ByVal b As Byte)
Consola.AppendText("El Puerto Recibe : " & b)
End Sub