l Y As Long) As Long
Dim i As Long
   For i = 1 To ilsIcons.ImageCount
      If Not (PtInRect(m_tR(i), X, Y) = 0) Then
         hitTest = i
         Exit For
      End If
   Next i
End Function

Private Function IsInRange( _
      ByVal lIndex As Long, _
      ByVal lStart As Long, _
      ByVal lLength As Long _
   )
   IsInRange = ((lIndex &gt;= lStart) And (lIndex &lt;= lStart + lLength))
End Function

Private Sub txtDragDrop_MouseDown(Button As Integer, Shift As Integer, X As
 Single, Y As Single)
   If