Try thisvb.net Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim item As Object For index As Integer = ListBox1.Items.Count - 1 To 0 Step -1 If ListBox1.GetSelected(index) = True Then item = ListBox1.Items(index) ListBox2.Items.Add(item.ToString) ListBox1.Items.Remove(item) 'this is optional - you dont have to remove them End If Next End Sub




Reply With Quote