Problemer med overførsel af data via drag & drop.

Hej Eksperter!

Jeg har et problem.
Jeg har arbejder på en drag-and-drop applikation, hvor jeg skal dragge en listitem fra en listboks over til en label med indeks.

Mit første problem ligger i, at jeg har 10 labels med navn
lblItem(0-9)

og en listboks med navn
lstDraggedItems

Jeg benytter følgende kode til drag fra listboksen:

Private Sub lstDraggedItems_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtItem.Text = lstDraggedItems.ItemData
   
    If txtItem.Text = "" Then Exit Sub ' Kan ikke drage et tomt felt.
   
    txtItem.Top = Y + lstDraggedItems.Top
    txtItem.Left = X + lstDraggedItems.Left
    txtItem.Drag
End Sub

Mit problem består så i at jeg ikke har en anelse om hvordan jeg skal implementere drop funktionen, så lblItem(i) opfatter i hvilken label den er blevet droppet.



Mit andet problem består i, at i min listboks har jeg en list med en masse 'items' til mit spil, men i virkeligheden vil jeg gerne dragge den talværdi som den givne 'item' har.. hvordan tildeler man en tekst i en listbox en skjult værdi?

På forhånd tak!
- ColdRay