Försöker få alla värden från en listbox när jag klickar på en knapp:
<code>
Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click
Dim i As Integer
For i = 0 To lbColumn.SelectedItems.Count
Label7.Text += lbColumn.SelectedItem(i).ToString() & Environment.NewLine
Next
End Sub
</code>

Binder datan när en annan comdobox uppdateras, som ändras då en annan uppdateras:

<code>
Private Sub cbTable_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbTable.SelectionChangeCommitted
' Binding The databases to
Dim strConn2 As String = "Driver={MySQL};Database=" & cbDatabase.Text
Dim strSql2 As String = "Describe " & cbTable.Text
Dim objConn2 As New OdbcConnection(strConn2)
Dim objCmd2 As New OdbcDataAdapter(strSql2, objConn2)

Dim dt2 As New DataTable()
objCmd2.Fill(dt2)
lbColumn.DataSource = dt2
lbColumn.DisplayMember = "Field"
lbColumn.ValueMember = "Field"
End Sub
</code>

Jag markerar några items och trycker på knappen. Det som skrivs ut i labln är du kolumner från datatabeln, 1 valt item = 1 column , 3 valda = 3 kolumner etc

Har suttit hela kvällen med det här...

p.latmask.com/text.txt finns hela koden på!

Hej!
Är inte riktigt med på vad det är du försöker göra men hur som helst tycker jag spontant att din loop ser litre skum ut.
Du itererar indexarna på selecteditems men indexerar på selecteditem (plural/singular)