Технология Drag&Drop - VB

Формулировка задачи:

Требуется реализовать перетаскивание нескольких текстовых файлов из Windows в текстовое поле. В событии DragDrop каждый файл следует открыть, считать содержимое и поместить его в текстовое поле. Чтобы обработать несколько файлов, необходимо создать массив, элементам которого присвоить имена перетаскиваемых файлов. Подскажите, как создать и проинициализировать этот массив?

Решение задачи: «Технология Drag&Drop»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim FileNames$()
 
Private Sub Form_Load()
  Me.OLEDropMode = vbOLEDropManual
End Sub
 
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
ReDim FileNames(1 To Data.Files.Count)
Dim i%
  For i = 1 To Data.Files.Count
    FileNames(i) = Data.Files(i)
  Next i
End Sub
                        