URGENT: Integrate Drag-Drop with AddItem method ?

I need to complete an exercise which requires me to create an "basketBall Assignments" interface which allows name of a new player to be typed and then drag-drop a person's name on scrollable list (either Team 1 or Team 2). The form has 3 label controls, 1 textbox, and 2 simple listbox controls. I have created the interface but I don't know what to write for the code.... please help !!!!!!

THANK YOU SO MUCH !!

Change the DragMode property of the textbox to Automatic and add this code. (You might also want to set the DragIcon property of the textbox...)


option Explicit

private Sub List1_DragDrop(Source as Control, X as Single, Y as Single)
List1.AddItem Source.Text
End Sub

private Sub List2_DragDrop(Source as Control, X as Single, Y as Single)
List2.AddItem Source.Text
End Sub

THANK YOU !!!