Dim biglietto As String
            Dim BigliettoSub As String

            For i = 0 To DataGridViewReport.Rows.Count - 1
                If DataGridViewReport.Rows(i).Cells(4).Value = False Then
                    biglietto = (DataGridViewReport.Rows(i).Cells(8).Value)
                    BigliettoSub = (DataGridViewReport.Rows(i).Cells(9).Value)
                    MessageBox.Show("questo è il valore dell'ultimo biglietto" & biglietto & "  " & BigliettoSub)
                End If

            Next