ASP.NET - Ciclo For para Guardar datos de un listBox

hola.... Mi pregunta es la siguiente...Espero me puedan ayudar.
Mi Aplicación es en Asp.net con VB
Tengo 3 ListBox y necesito guardar sus valores en una base de datos. Lo estoy haciendo con un For Pero solo me guarda el ultimo valor del primer ListBox y Los otros dos me los guarda Vacíos. Este es el código por el cual lo estoy tratando de hacer. Díganme por favor que tengo malo o que es lo que me falta.
PSD: Debo ingresar mas de 5 valores de Cada ListBox... Pero nunk Sabré cuantos Van a ingresar
Dim s As Integer
Dim v As Integer
Dim c As Integer

For s = 0 To Me.List1.Items.Count - 1
Me. Lis1.SelectedIndex = s

Next s

For v = 0 To Me. List2.Items.Count - 1
Me. Lis2.SelectedIndex = v

Next v

For c = 0 To Me. List3.Items.Count - 1
Me. Lis3.SelectedIndex = c

Next c

Cadena de Conexion= (Me.Fac.Ingresar(Me.txt1.Text, Me. List1.SelectedValue, Me.cmbNit.SelectedValue, Me.txt2.Text, Me. List2.SelectedValue, Me. List3.SelectedValue))

Muchas Gracias de antemano a todo el que me pueda ayudar

Solo necesitas un For. En cada iteracion realiza cualquiera que sea la operacion que estes realizando.

Algo como:

For i = 0 To Me.List1.Items.Count - 1 Step 1
' Suponiendo que los listados tienen igual cantidad de elementos.

' TU OPERACION ACCESANDO LOS ELEMENTOS CON Me.ListN.Items(i)

Next i

Saludos

Hola X, Primero que todo gracias por responderme.

Pues intento como me dices:
Dim c As Integer
For c = 0 To Me.List1.Items.Count - 1 Step 1
Me.List1.Items(i) 'Esto me aparece como error
Me.List2.Items(i)
Me.List3.Items(i)
Next c

E in tento asi:
y solo me guarda el ultimo Item de cada List

Dim c As Integer
For c = 0 To Me.List1.Items.Count - 1 Step 1
Me.List1.SelectedIndex = c
Me.List2.SelectedIndex = c
Me.List3.SelectedIndex = c
Next c

Te agradeceria que me digas que tengo malo.
Salu2s

que tal
oye aca tienes un error:

Dim c As Integer
For c = 0 To Me.List1.Items.Count - 1 Step 1
Me.List1.Items(i) 'Esto me aparece como error
Me.List2.Items(i)
Me.List3.Items(i)
Next c

estas recorriendo 'c' pero buscas (i);

debe ser

Dim c As Integer
For c = 0 To Me.List1.Items.Count - 1 Step 1
Me.List1.Items(c) 'Esto me aparece como error
Me.List2.Items(c)
Me.List3.Items(c)
Next c

prueba asi y despues di que sucede.

saludos

Oye disculpa mi error de copie y pege....
Pero en realidad si lo tenia con C
pero aparece como sino me reconociera los objetos

podrias pegar todo el codigo?

tal vez no todos los controles tienen la misma cantidad de items,
por lo que sera necesario agregar agunas condiciones.

saludos.

Dim c As Integer
For c = 0 To Me.LBSoftware.Items.Count - 1 Step 1
Me.LBSoftware.SelectedIndex = c
Me.LBVersion.SelectedIndex = c
Me.LBCantidad.SelectedIndex = c
Next c

Cadena de Conexion.... La tengo en una Clase y aca la llamo...

Me.Fac.IngresarSoftware(Me.txtnumfactura.Text, Me.LBSoftware.SelectedValue, Me.cmbNit.SelectedValue, Me.txtIdLic.Text, Me.LBVersion.SelectedValue, Me.LBCantidad.SelectedValue)


Y si... Todas las Listas tienen la misma cantidad de intems, puesto que por cada Software, debo ingresar una Version y una Cantidad....

Gracias

Segun recuerdo quieres guardar cada registro
por lo que la llamada a guardar los elementos debe
estar contenida en el ciclo for:

Dim c As Integer
For c = 0 To Me.LBSoftware.Items.Count - 1 Step 1
Me.LBSoftware.SelectedIndex = c
Me.LBVersion.SelectedIndex = c
Me.LBCantidad.SelectedIndex = c

//Aca la cadena de conexion para guardar cada registro

Next c


saludos.

Gracias Por tu respuesta Era exactamente lo que me faltaba....