Pict_OLEDragDrop

  80 Private Sub Pict_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  81 ' If user has dropped one or more files on the picture area
  82 ' try to load the first file and show its picture info
  83 
  84 If Data.GetFormat(vbCFFiles) Then
  85     Effect = vbDropEffectCopy
  86     DisplayPictureInfo Data.Files(1)
  87 End If
  88 
  89 End Sub
  90 

Calls