Private Sub myFsw_FileSystemMessage(ByVal Sender As Object, ByVal e As EventArgumentsFileSystemWatcher) Handles myFsw.FileSystemMessage
        rtbOutput.AppendText(e.ChangeType.ToString() & vbCrLf)
        rtbOutput.AppendText("Z:\DEV\Clienti\InArrivoDaFornitore\Cliente1" & vbCrLf)
        rtbOutput.AppendText(e.FileName & vbCrLf & vbCrLf)
    End Sub