comparar el contenido de 2 image diferentes

[dulcefmq]

Estimado Erbuson no se si estará bien el código en el queintentocomparar mediante "Tags". dado quehe probado su propuesta y no funciona, suena el "beep" en cuanto se traslada una imagen del Image1(0) al Image1(1), más no cuando ambas Imágenes coinciden.
Hay que considerar que el el Image2(index) que son más pequeñas, las mismas imágenes, estan ordenadas; en Image2(0)= "árbol", Image2(1) = "bicicleta", Image2(2)="casa" y permanecen asi constantemente.
Sin embargo es el Image1(index) el que traslada imágenes y por lotanto debe sonar el "Beep" cuando a Image1(0) se traslade el "árbol", a Image1(1) se traslade "Bicicleta", y a Image1(2) se traslade "casa". Lo que no sucede suena el Beep sin considerar esta situación ¿ ... ?

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

For x = 0 To 2
nomfig = App.Path & "\fg" & x & ".jpg"
Image2(x) = LoadPicture(nomfig)
Image2(x).Tag="fg" & x & ".jpg"
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
if Image1(index).Tag = Image2(nn).Tag="fg" & x & ".jpg" Then
beep
End if ElseIf nn = 1 Then
Image1(Index) = Source.Picture
Source.Picture = imagen
if Image1(index).Tag = Image2(nn).Tag="fg" & x & ".jpg" Then
beep
End if ElseIf nn = 2 Then
Image1(Index) = Source.Picture
Source.Picture = imagen
if Image1(index).Tag = Image2(nn).Tag="fg" & x & ".jpg" Then
beep
End if
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


Seguiré intentando ...

Felipe