comparar el contenido de 2 image diferentes

[dulcefmq]

En el Form1: se ubican 3 control Image1(index) medianos conteniendo 3 figuras desordenadas.
Las mismas figuras estan contenidas de manera ordenada en 3 Image2(index) más pequeños.
[B]La tarea consiste en ordenar las 3 figuras del Image1(index) mediante dragdrop, y al lograrlo y coincidir con las del Image2(index) se pueda dar una alarma o ejecutir otra rutina.[/B]

ADJUNTO CODIGO REALIZADO, GRACIAS POR SU ATENCIÓN Y APOYO.

Option Explicit
Dim imagen As Object
Dim nn As Integer

Private Sub Form_Load()
Dim x As Integer
Dim nomfig As String
Image1(0).Picture = LoadPicture("D:\VB\prac\e\fg3.jpg")
Image1(1).Picture = LoadPicture("D:\VB\prac\e\fg1.jpg")
Image1(2).Picture = LoadPicture("D:\VB\prac\e\fg2.jpg")

For x = 0 To 2
nomfig = App.Path & "\fg" & x & ".jpg"
Image2(x) = LoadPicture(nomfig)
Next x
End Sub

Private Sub Image1_DragDrop(Index As Integer, Source As Control, x As Single, Y As Single)

Set imagen = Image1(Index).Picture
If nn = 0 Then
Image1(Index) = Source.Picture
Source.Picture = imagen
ElseIf nn = 1 Then
Image1(Index) = Source.Picture
Source.Picture = imagen
ElseIf nn = 2 Then
Image1(Index) = Source.Picture
Source.Picture = imagen
End If

End Sub
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
nn = Image1(Index).Index
If Button = 1 Then
Image1(Index).Drag
End If
End Sub


Felipe