Visual Basic - Duda Drag/drop

Alguien me puede decir como puedo hacer para verificar si e soltado algo sobre otro elemento. EJEMPLO

tengo una lista donde hay elementos que puedes escoger mediante drag/drop, quisiera saber como puedo hacer para darme cuenta que eh soltado un elemento en un textbox....

Osea si lo escojo y no lo suelto en el textbox1 que me salga un error y si si lo suelto que haga otra instruccion.

Gracias

Buenas, te paso un ejemplo. pon un list1, label1 y un text1
'
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
MsgBox "Error!!"
End Sub

Private Sub Form_Load()
For I = 1 To 10
List1.AddItem "Elemento " & I
Next
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Width = List1.Width
Label1.Move List1.Left, List1.Top + Y
Label1.Caption = List1.List(List1.ListIndex)
Label1.Drag vbBeginDrag
End Sub

Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
Text1 = Source.Caption
End Sub

' saludos

gracias°!