Private Sub Image1_Click(Index As Integer)
If v = 3 Then
        Image1(k).Picture = LoadPicture("logo.jpg")
         Image1(n).Picture = LoadPicture("logo.jpg")
        v = 0
End If
 v = v + 1
 If v = 1 Then
    Image1(Index).Picture = LoadPicture(Image1(Index).Tag)
    n = Index
End If

 If v = 2 Then
    Image1(Index).Picture = LoadPicture(Image1(Index).Tag)
    k = Index
     If Image1(Index).Tag = Image1(n).Tag Then
        Image1(Index).Enabled = False
        Image1(n).Enabled = False
      v = 0

     Else
          v = v + 1

     End If
 End If