Tengo el siguiente problema: en VB-6.0

Desde una Base de datos que se visualiza en un datagrid (que contiene 7 columnas).. al hacer clic los datos se agregan a 7 listbox (CADA DATO DEL DATAGRID A UN LISTBOX).. luego a través de una referencia se envían los datos a WORD. cuando mando a imprimir, solo toma los datos del primer item de todas las listas.. y lo imprime Ok pero si agrego un 2do dato no lo imprime.. ayuda para resolverlo

Este es el codigo:

Static wd1 As Word.Application
Static wd1doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = True
wd1.Activate
Set wd1doc = wd1.Documents.Add(App.Path & "\basevisual.doc")

With wd1doc

.FormFields("texto1").Range = Label2.Caption
.FormFields("texto2").Range = Label4.Caption
.
.
.

For i = 1 To List1.ListCount
.FormFields("texto13").Range = List1.List(i - 1)
Next i

For i = 1 To List2.ListCount
.FormFields("texto14").Range = List2.List(i - 1)
Next i
.
.
.