Private Sub Ricezione(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles LettoreTessera.DataReceived
        Dim mi As MethodInvoker = AddressOf Elaboradati
        LetturaTessera = ""
        Try
            LetturaTessera = LettoreTessera.ReadExisting
            LettoreTessera.DiscardInBuffer()
            Me.Invoke(mi)
        Catch ex As Exception
            Messaggio("Errore Lettore Tessera")
        End Try
   End Sub