Private Sub rateizza_Click(sender As Object, e As EventArgs) Handles rateizza.Click
        Listview1.Items.Clear()
        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(Label15.Text)
            Listview1.Items.Item(Listview1.Items.Count - 1).SubItems.Add(Label18.Text)
            Listview1.Items.Item(Listview1.Items.Count - 1).SubItems.Add(IIf(i = 1, Label21.Text, ""))
            Listview1.Items.Item(Listview1.Items.Count - 1).SubItems.Add(IIf(i = 1, rataspese.Text, Label19.Text))
            If CheckBox1.Checked Then
                tmp = tmp.AddMonths(1)
            End If
            If CheckBox2.Checked Then
                tmp = DateSerial(tmp.Year, tmp.Month, 0)
            End If

        Next

    End Sub