two list boxes

Hi,

I have 2 list boxes side by side lets assume they are A and B, and A has list of names and when i select a name and click on the forward arrow it should appear in the B list box. Also when i again select a name from B and click the back arrow it should again appear in the A box.

Can someone please help me in how to do this. I am a newbly and I am lost as to how to do it.

Please help me.

thanks

Set the form's KeyPreview property to True and then...

VB Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    Select Case KeyCode
        Case vbKeyRight
            List2.AddItem List1.List(List1.ListIndex)
            List1.RemoveItem List1.ListIndex
        Case vbKeyLeft
            List1.AddItem List2.List(List2.ListIndex)
            List2.RemoveItem List2.ListIndex
    End Select
End Sub

well errr
dun got vb out but im sure if you simply did sumthin like

this shud work for goin from list1 to list2

VB Code:

Private Sub Command1_Click()
Dim i As Integer
 
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
List1.RemoveItem i
End If
Next
End Sub

you should be able to edit that to remove and go back to list1


ice
:wave:

yes im bored.. i made a qwik sample for u

does wut u wanted i believe..
im attaching the form :)