ing
   On Error GoTo 0
   s = b
   If (InStr(s, "picDragDrop") &gt; 0) Then
      Dim i As Long
      i = hitTest(X, Y)
      If Not (i = m_iDragOver) Then
         m_iDragOver = i
         paintIcons
      End If
   Else
      Effect = vbDropEffectNone
   End If
   '
End Sub

Private Sub picDragDrop_OLEGiveFeedback(Effect As Long, DefaultCursors As
 Boolean)
   '
   m_cDrag.DragDrop
   '
End Sub

Private Sub picDragDrop_OLESetData(Data As DataObject, DataFormat As Integer)
   '
   '
End Sub

Private Sub pi