I am trying to drap and drop the contents of a text box into<br>a list box. The actual procedure works fine. The contents<br>of the text box does end up on in the list box control,<br>however, the data shows up multiple times. If I drag the<br>text "Hello" to the list box I get the following:<br><br>Hello<br>Hello<br>Hello<br><br>Here is the code I am using:<br><br>Private Sub List1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)<br> If TypeOf Source Is TextBox Then<br> List1.AddItem Text1.text<br> End If<br>End Sub<br><br>Any help would be greatly appreciated!