No sé como lo haces, pero si arrastras los pictures como imagino, moviendo el contenido pero no cambiando de sitio el propio picture, podrías comparar las imágenes como cadenas de texto y contar las que coinciden:
Código vb:
Ver originalPrivate Declare Function GetBitmapBits Lib "gdi32" _
(ByVal hBitmap As Long, ByVal dwCount As Long, _
lpBits As Any) As Long
Private Declare Function GetObject Lib "gdi32" Alias _
"GetObjectA" (ByVal hObject As Long, ByVal nCount _
As Long, lpObject As Any) As Long
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Function PictureToString(pic As PictureBox) As String
Dim tBitmap As BITMAP
Dim bPicBytes() As Byte
Dim lByteLen As Long
GetObject Picture1.Image.Handle, Len(tBitmap), tBitmap
lByteLen = tBitmap.bmWidthBytes * tBitmap.bmHeight
ReDim bPicBytes(1 To lByteLen)
GetBitmapBits pic.Picture.Handle, UBound(bPicBytes), bPicBytes(1)
PictureToString = bPicBytes
End Function
Private Function ComparaPics(Pic1 As PictureBox, Pic2 As PictureBox) As Boolean
Dim strPic1 As String
Dim strPic2 As String
strPic1 = PictureToString(Pic1)
strPic2 = PictureToString(Pic2)
ComparaPics = (strPic1 = strPic2)
End Function
Y cuando desplaces un picture comparas todos.
Dim Iguales As Integer
If ComparaPics(Form1.Picture1, Form2.Picture1) Then iguales = iguales + 1
If ComparaPics(Form1.Picture2, Form2.Picture2) Then iguales = iguales + 1
If ComparaPics(Form1.Picture3, Form2.Picture3) Then iguales = iguales + 1
If iguales=3 Then Msgbox "Completado"
Saludos