dragging textbox

I am trying to drag a item from one listbox into another listbox. I am using a textbox that I locate on top of the item in the listbox and copy the text of the item into the textbox. I then drag the textbox into the other list. Everything works fine except that the textbox is empty as it is being dragged. I see the outline of the textbox but no text.
What do I need to do to see the text?

Peter Schoots

Below is the relevant code.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As _
POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type
Dim a As POINTAPI, b As Long, c As Long


Dim ret As Long
ret = GetCursorPos(a)
b = a.X
c = a.Y
With Text2
.Top = List1.Top + a.Y: .Left = List1.Left
.Width = 1.5 * Len(List1.Text) * Me.TextWidth("W")
.Text = List1.Text
.Tag = List1.ItemData(List1.ListIndex)
.Visible = True
.Drag vbBeginDrag
End With