Tietoja ListBoxista toiseen ListBoxiin

VB6:ssa ainakin onnistuu seuraavasti:

List1-listbox sisältää tiedot.
List2-listboxiin siirretään List1:stä se rivi, jota on tuplalklikattu.

Private Sub List1_DblClick()
List2.AddItem List1.Text
End Sub



Eli List1.Text sisältää valitun tekstirivin. Se on sama kuin List1.List(List1.ListIndex).

Dim i As Long
Dim c As New ListBox.SelectedObjectCollection(list1)
         
c = list1.SelectedItems
                        
For i = c.Count - 1 To 0 Step -1
   list2.Items.Add(c(i).toString())
   list1.Items.Remove(c(i))
Next