主题：狐表支持文件拖拽获取文件路径吗？

以下内容为程序代码:

1 Private Sub Form_Load()
2     Form1.OLEDropMode = 1
3 End Sub
4 
5 Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
6     For i = 1 To Data.Files.Count '逐个读取文件路径
7         Debug.Print Data.Files(i)
8     Next
9 End Sub

这个是VB的案例 狐表如何集成？？？