I have a form with two listboxes. I have a button on the form that,
once pushed, i'd like everything from listbox1 to move to listbox 2.
help? thanks!

On May 10, 3:08*pm, Matthew Dyer wrote:
I have a form with two listboxes. I have a button on the form that,
once pushed, i'd like everything from listbox1 to move to listbox 2.
help? thanks!

I figured it out :-). For those curious, here is my solution:

Private Sub CommandButton2_Click()
Dim i As Integer
i = 0
Do Until ListBox1.ListCount = 0
ListBox2.AddItem ListBox1.List(i)
ListBox1.RemoveItem i
Loop
End Sub

Hi

You don't say whether LIstbox2 contains anything that should be kept, so
assuming not:

Private Sub CommandButton1_Click()
Me.ListBox2.List = Me.ListBox1.List
Me.ListBox1.Clear
End Sub

HTH. Best wishes Harald

"Matthew Dyer" wrote in message
...
I have a form with two listboxes. I have a button on the form that,
once pushed, i'd like everything from listbox1 to move to listbox 2.
help? thanks!

Matthew Dyer wrote on 5/10/2011 :
I have a form with two listboxes. I have a button on the form that,
once pushed, i'd like everything from listbox1 to move to listbox 2.
help? thanks!

try...

With Me.ListBox1
ListBox2.List = .List
If .RowSource < "" Then .RowSource = "" Else .Clear
End With

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc