Hola.

 Yo lo tengo hecho para el RichTextBox. Se lo envío por si le sirviera
de algo.

Ponga un RichtTextBox y establézcale estas proiedades:

 OLEDragMode = 0
 OLEDropMode = 1

 Ahora, vaya al evento OLEDragDrop del control y escriba:

Dim j As Long

If Data.GetFormat(vbCFFiles) Then
   j = Data.Files.Count
   RichTextBox1.LoadFile Data.Files.Item(1), rtfText
   ' En RichTextBox1.FileName tenemos el nombre
End If

 En el evento OLEDragOver del control escriba:

 If Data.GetFormat(vbCFFiles) Then
    Effect = vbDropEffectCopy And Effect
        Exit Sub
    End If
 Effect = vbDropEffectNone

Esperando sirva:


Antonio Periago Miñarro
Avda. Juan Carlos I, 18, 4ºA
30800 Lorca (Murcia) España
aperiago@hotmail.com
http://www.Geocities.com/SiliconValley/Campus/8271
Tlf.:970 689 602 (GSM)


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com