p - picDragDrop.top
End Sub

Private Sub picDragDrop_MouseDown(Button As Integer, Shift As Integer, X As
 Single, Y As Single)
Dim i As Long
   i = hitTest(X, Y)
   If (i &gt; 0) Then
      m_iDragOver = i
      m_iDragging = i
      picDragDrop.OLEDrag
   End If
End Sub

Private Sub picDragDrop_MouseMove(Button As Integer, Shift As Integer, X As
 Single, Y As Single)
   '
End Sub

Private Sub picDragDrop_OLECompleteDrag(Effect As Long)
   '
   m_cDrag.CompleteDrag
   '
End Sub

Private Sub picDragDrop_OLED