既にでている質問だったら、本当にすいません。

VB6でエクスプローラーとかからドラッグ＆ドロップしてファイルリストボックスにファイル名をリストアップしたいのですが、

Private Sub File1_OLEDragDrop(Data As DataObject,（中略）
File1.filename = Data.Files(1)
End Sub

だと、一つしかファイル名が表示できません。
D&Dしたファイルのファイル名をどんどん追加したのですが、どなたか教えて頂けませんでしょうか？？
宜しく御願いしますm(__)m