vb怎么实现用鼠标将桌面程序托到列表中

vb如何实现用鼠标将桌面程序托到列表中
vb如何实现用鼠标将桌面程序托到列表中？

------解决方案--------------------
Option Explicit

Private Sub Form_Load()
Text1.OLEDropMode = vbOLEDropManual
End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFFiles) Then
Dim i As Long
For i = 1 To Data.Files.Count
Debug.Print , Data.Files(i)
'如果是 .lnk 文件，参考 http://topic.csdn.net/t/20001128/22/43463.html#
Next
End If
End Sub