For riga = 0 To DataGridView1.RowCount - 1
                                    If DataGridView1.Rows(riga).Cells("Segno1").Value >= ProbMin1 And DataGridView1.Rows(riga).Cells("Segno1").Value <= ProbMax _
                                        And DataGridView1.Rows(riga).Cells("Quota1").Value <= QuotaMax And DataGridView1.Rows(riga).Cells("Quota1").Value >= QuotaMin1 Then
                                        gare = gare + 1
                                        segno1 = IIf(DataGridView1.Rows(riga).Cells("SegnoFtDataGridViewTextBoxColumn").Value = "1", segno1 + 1, segno1)
                                        segnoX = IIf(DataGridView1.Rows(riga).Cells("SegnoFtDataGridViewTextBoxColumn").Value = "X", segnoX + 1, segnoX)
                                        segno2 = IIf(DataGridView1.Rows(riga).Cells("SegnoFtDataGridViewTextBoxColumn").Value = "2", segno2 + 1, segno2)
                                        Under = IIf(DataGridView1.Rows(riga).Cells("UO25FtDataGridViewTextBoxColumn").Value = "Under", Under + 1, Under)
                                        Over = IIf(DataGridView1.Rows(riga).Cells("UO25FtDataGridViewTextBoxColumn").Value = "Over", Over + 1, Over)
                                        Pari = IIf(DataGridView1.Rows(riga).Cells("PDDataGridViewTextBoxColumn").Value = "Pari", Pari + 1, Pari)
                                        Dispari = IIf(DataGridView1.Rows(riga).Cells("PDDataGridViewTextBoxColumn").Value = "Dispari", Dispari + 1, Dispari)
                                        Goal = IIf(DataGridView1.Rows(riga).Cells("GGNGDataGridViewTextBoxColumn").Value = "Gol", Goal + 1, Goal)
                                        NoGoal = IIf(DataGridView1.Rows(riga).Cells("GGNGDataGridViewTextBoxColumn").Value = "NoGol", NoGoal + 1, NoGoal)
                                        resa = IIf(DataGridView1.Rows(riga).Cells("SegnoFtDataGridViewTextBoxColumn").Value = "1", CDbl(resa) + (CDbl(DataGridView1.Rows(riga).Cells("Quota1").Value) - 1), CDbl(resa) - 1)
                                        QuotaMedia = Math.Round(QuotaMedia + DataGridView1.Rows(riga).Cells("Quota1").Value, 2)
                                    End If
                                Next
                                If gare >= 500 Then
                                    segno1Perc = FormatPercent(segno1 / gare)
                                    segno2Perc = FormatPercent(segno2 / gare)
                                    segnoXPerc = FormatPercent(segnoX / gare)
                                    OverPerc = FormatPercent(Over / gare)
                                    UnderPerc = FormatPercent(Under / gare)
                                    PariPerc = FormatPercent(Pari / gare)
                                    DispariPerc = FormatPercent(Dispari / gare)
                                    GoalPerc = FormatPercent(Goal / gare)
                                    NoGoalPerc = FormatPercent(NoGoal / gare)
                                    QuotaMedia = Math.Round((QuotaMedia / gare), 2)
                                    resaPerc = FormatPercent(resa / gare)
                                    Selezione.Rows.Insert(rigaSelezione, Campionati.Text, TipoScommessa.Text, ProbMin1, ProbMax, QuotaMin1, QuotaMax, segno1Perc, segnoXPerc, segno2Perc, UnderPerc, OverPerc, PariPerc, DispariPerc, GoalPerc, NoGoalPerc, QuotaMedia, resa, resaPerc)
                                    rigaSelezione = rigaSelezione + 1
                                    segno1 = 0
                                    segnoX = 0
                                    segno2 = 0
                                    Under = 0
                                    Over = 0
                                    Pari = 0
                                    Dispari = 0
                                    Goal = 0
                                    NoGoal = 0
                                    resa = 0
                                    gare = 0
                                    QuotaMedia = 0
                                Else
                                    segno1 = 0
                                    segnoX = 0
                                    segno2 = 0
                                    Under = 0
                                    Over = 0
                                    Pari = 0
                                    Dispari = 0
                                    Goal = 0
                                    NoGoal = 0
                                    resa = 0
                                    gare = 0
                                    QuotaMedia = 0


                                End If