ListView1.Items.Clear()
        rmensile.Text = "€" & Format(rmensile.Text)
        sspese.Text = "€" & Format(sspese.Text)
        rataspese.Text = "€" & Format(rataspese.Text)
        fine = rateautorizzate.Text
        Dim tmp As Date = Me.dtp.Value.Date
        For i = 1 To fine
            ListView1.Items.Add(i.ToString())
            ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(tmp.ToShortDateString)
            ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(nettomensile.Text)
            ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(interessemensile.Text)
            ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(IIf(i = 1, speserata.Text, ""))
            ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(IIf(i = 1, rataspese.Text, rmensile.Text))

            tmp = tmp.AddMonths(1)

        Next