Ayuda con listbox

[tuka_85]

ya lo corregi...

Es asi

Código:

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        For Each x As String In LstCapitales.Items
            lstCopiado.Items.Add(x)
            LstCapitales.Items.Remove(x)
            Exit For
        Next
    End Sub