Dim x As String For Each x As Object In Me.LstCapitales.Items Next lstCopiado.Items.Add(x) LstCapitales.Items.Remove(x) Stop