listbox, select

Försöker få alla värden från en listbox när jag klickar på en knapp:

    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

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

    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

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... x(

hela koden finns på p.latmask.com/test.txt

    Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click
        Dim drw As DataRowView
        Label7.Text = ""
        For Each drw In lbColumn.SelectedItems()
            Label7.Text += drw(0).ToString & Environment.NewLine
        Next
    End Sub

?

Funka fint!