galera o codigo foi alterado pra isso mas mesmo assim as datas nao ficam subsequentes a digitada no txt data entrada, alguem da uma luz ai
Dim i As Integer
Dim j As Integer
Dim lista As ListItem
For j = 1 To CInt(txtparc.Text)
'FrmLocacao.ListView1.ListItems.Add FrmLocacao.ListView1.ListItems.Count + 1, , DateAdd("d", txtdataentrada.Text * i, Date)
Set lista = FrmLocacao.ListView1.ListItems.Add(, , FrmLocacao.ListView1.ListItems.Count)
For i = 1 To CInt(txtparc.Text)
lista.SubItems(1) = "Casa"
lista.SubItems(2) = Me.txtcodC.Text
lista.SubItems(4) = Me.txtcodimo.Text
lista.SubItems(6) = Me.txtcidade.Text
lista.SubItems(7) = Me.txtrua.Text
lista.SubItems(8) = Me.txtbairro.Text
lista.SubItems(9) = Me.txtnumero.Text
lista.SubItems(10) = Me.txtdata.Text
lista.SubItems(11) = CDate(txtdataentrada.Text) + (30 * 11)
lista.SubItems(13) = Me.txtdatasaida.Text
lista.SubItems(14) = Me.txtcontrato.Text
lista.SubItems(16) = Me.txtnumeroParcela.Text
lista.SubItems(21) = Me.txtvalo.Text
Next i
