[ناجي إبراهيم]

السلام عليكم...
ضع السطر السابق في الحدث MouseUp للـ Picture33 :

كود :

Private Sub Picture33_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Picture33(Index).Top = Picture32(Index).Top
    End If
End Sub

نرجو الاستفادة و السلام.