Pict_OLEDragOver

  91 Private Sub Pict_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
  92 ' If user has dragged one or more files, indicate we will accept them
  93 
  94 If Data.GetFormat(vbCFFiles) Then
  95     Effect = vbDropEffectCopy
  96 End If
  97 
  98 End Sub
  99 
 100