Drug and Drop from Listbox1 to Listbox2 - VB

Формулировка задачи:

Уважаемые ! Если возможно - может кто напомнит как выглядит код для перетаскивания Listitems - ов из Listbox1 в Listbox2. Никак не могу найти..... При перетаскивании из Listbox1 они остаются в Listbox1, но добавляются и в Listbox2, а при перетаскивании обратно не прибавляются в Listbox1, но удаляются из Listbox2 С Уважением, Михаил

Решение задачи: «Drug and Drop from Listbox1 to Listbox2»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    List1.DragMode = vbAutomatic
    List2.DragMode = vbAutomatic
End Sub
 
Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single)
    List1.Clear
    For i = 0 To List2.ListCount
        List1.AddItem List2.List(i)
    Next i
End Sub
 
Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)
    List2.Clear
    For i = 0 To List1.ListCount
        List2.AddItem List1.List(i)
    Next i
End Sub
                        