VB初心者質問スレPart2

Private Sub Text1_OLEDragDrop(Data As DataObject,（中略）
Text1.Text = Data.Files(1)
End Sub
OLEDropModeを1 - 手動にしませうね