Option Explicit
Dim nFirst As Integer
 
Private Sub Form_Load()
  nFirst = -1
  ...
End Sub
 
Private Sub Picture1_Click(Index As Integer)
  If nFirst = -1 Then
    ' noch kein Bild aufgedeckt
    nFirst = Index
  Else
    ' Index mit 1. Bild vergleichen
    If Picture1(nFirst).Tag = Picture1(Index).Tag Then
      ' Treffer!
      ...
    Else
      ' keine Übereinstimmung!
 
    End If
    nFirst = -1
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de