ListBox to ListBox Control

Hey

I'm currently a college student taking Computer Programming and VB is my weak subject.
I'm making a User Control for a ListBox to Listbox control, like the listboxes in the User Control Wizard when you choose the Properties, etc. I've got a text box to add to the left list and I want to be able to move selected items to the right list.

I have 4 VB books and none of the are any help!

I'd appreciate any suggestions. I'm stuck.

Thanks :)

Something like this:

VB Code:

Private Sub Command1_Click()
   Dim strItem As String
 
   If ListBox1.ListIndex > -1 then
      strItem = ListBox1.List(ListBox1.ListIndex)
      ListBox1.Remove ListBox1.ListIndex
      ListBox2.AddItem strItem
   End If
 
End Sub