Private Sub knt_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
 Dim curknt As Image
 Set curknt = knt(Index)
 With prz(asd)
    If Not .Container Is curknt.Container Then Set .Container = curknt.Container
    .Move curknt.Left, curknt.Top
    .ZOrder
 End With
End Sub