VB6 Pairs Game

Hey there, I'm new to this forum and I'm also in urgent need of help with my program. It's a basic pairs game. I've managed to create a grid which randomizes images and stays face down until clicked. It will display "Match" or "Not match" depending on the input, however it will not unflip the first index for some reason, and I also added code to do an index check and it always displays as "0" whereas the second index displays correctly. I just need this match to work overall, I'm just confused why it's not remembering the first index.

Dim GridArray(5, 5) As String
Dim Grid1Index As String
Dim Grid2Index As String
Dim ClickCount As Integer
Dim I As Integer
Dim J As Integer
Dim Player_name As String
Dim score As Integer
Dim MadNamesYo1(36) As String

Private Sub Form_Load()

MadNamesYo1(1) = "Finn"
MadNamesYo1(2) = "Jake"
MadNamesYo1(3) = "Beemo"
MadNamesYo1(4) = "Rainicorn"
MadNamesYo1(5) = "Fiona"
MadNamesYo1(6) = "Peppermint_Butler"
MadNamesYo1(7) = "Bannana"
MadNamesYo1(8) = "Lich"
MadNamesYo1(9) = "fp"
MadNamesYo1(10) = "Pb"
MadNamesYo1(11) = "Marceline"
MadNamesYo1(12) = "Cake"
MadNamesYo1(13) = "Ice_King"
MadNamesYo1(14) = "TreeTrunks"
MadNamesYo1(15) = "LSP"
MadNamesYo1(16) = "Gunter"
MadNamesYo1(17) = "Lemongrab"
MadNamesYo1(18) = "Doggy"
MadNamesYo1(19) = "Finn"
MadNamesYo1(20) = "Jake"
MadNamesYo1(21) = "Beemo"
MadNamesYo1(22) = "Rainicorn"
MadNamesYo1(23) = "Fiona"
MadNamesYo1(24) = "Peppermint_Butler"
MadNamesYo1(25) = "Bannana"
MadNamesYo1(26) = "Lich"
MadNamesYo1(27) = "fp"
MadNamesYo1(28) = "Pb"
MadNamesYo1(29) = "Marceline"
MadNamesYo1(30) = "Cake"
MadNamesYo1(31) = "Ice_King"
MadNamesYo1(32) = "TreeTrunks"
MadNamesYo1(33) = "LSP"
MadNamesYo1(34) = "Gunter"
MadNamesYo1(35) = "Lemongrab"
MadNamesYo1(36) = "Doggy"

Dim Counter As Integer
Dim LoopCounter1 As Integer
Dim LoopCounter2 As Integer
Dim NameIndex As Integer
Dim Bolt1 As Boolean
Dim Bolt2 As Boolean

ClickCount = 1

Player_name = InputBox("What's your name?")

For Counter = 0 To 35
Grid(Counter).Picture = Default
Next Counter

For LoopCounter1 = 0 To 5
For LoopCounter2 = 0 To 5
Do
NameIndex = Int((36 * Rnd) + 1) '// Generate random value between 1 and 18.
If MadNamesYo1(NameIndex) <> "SKIP" Then
GridArray(LoopCounter1, LoopCounter2) = MadNamesYo1(NameIndex)
MadNamesYo1(NameIndex) = "SKIP"
Exit Do
End If
Loop
Next LoopCounter2
Next LoopCounter1

End Sub

Private Sub Grid_Click(Index As Integer)

Dim Tempi As Integer
Dim Tempj As Integer
Dim TagIndex As String
Dim recordIndex1 As Integer
Dim recordIndex2 As Integer


TagIndex = Grid(Index).Tag
Tempi = Val(Mid(TagIndex, 1, 1))
Tempj = Val(Mid(TagIndex, 2, 1))

If ClickCount = 1 Then
recordIndex1 = Index
If GridArray(Tempi, Tempj) = "Finn" Then
Grid(Index).Picture = Finn
Click1.Picture = Finn
ElseIf GridArray(Tempi, Tempj) = "Jake" Then
Grid(Index).Picture = Jake
Click1.Picture = Jake
ElseIf GridArray(Tempi, Tempj) = "Rainicorn" Then
Grid(Index).Picture = Rainicorn
Click1.Picture = Rainicorn
ElseIf GridArray(Tempi, Tempj) = "Beemo" Then
Grid(Index).Picture = Beemo
Click1.Picture = Beemo
ElseIf GridArray(Tempi, Tempj) = "Pb" Then
Grid(Index).Picture = Pb
Click1.Picture = Pb
ElseIf GridArray(Tempi, Tempj) = "Bannana" Then
Grid(Index).Picture = Bannana
Click1.Picture = Bannana
ElseIf GridArray(Tempi, Tempj) = "Ice_King" Then
Grid(Index).Picture = Ice_King
Click1.Picture = Ice_King
ElseIf GridArray(Tempi, Tempj) = "Peppermint_Butler" Then
Grid(Index).Picture = Peppermint_Butler
Click1.Picture = Peppermint_Butler
ElseIf GridArray(Tempi, Tempj) = "Marceline" Then
Grid(Index).Picture = Marceline
Click1.Picture = Marceline
ElseIf GridArray(Tempi, Tempj) = "Lemongrab" Then
Grid(Index).Picture = Lemongrab
Click1.Picture = Lemongrab
ElseIf GridArray(Tempi, Tempj) = "Cake" Then
Grid(Index).Picture = Cake
Click1.Picture = Cake
ElseIf GridArray(Tempi, Tempj) = "TreeTrunks" Then
Grid(Index).Picture = TreeTrunks
Click1.Picture = TreeTrunks
ElseIf GridArray(Tempi, Tempj) = "Lich" Then
Grid(Index).Picture = Lich
Click1.Picture = Lich
ElseIf GridArray(Tempi, Tempj) = "Gunter" Then
Grid(Index).Picture = Gunter
Click1.Picture = Gunter
ElseIf GridArray(Tempi, Tempj) = "Doggy" Then
Grid(Index).Picture = Doggy
Click1.Picture = Doggy
ElseIf GridArray(Tempi, Tempj) = "Pb" Then
Grid(Index).Picture = Pb
Click1.Picture = Pb
ElseIf GridArray(Tempi, Tempj) = "fp" Then
Grid(Index).Picture = Fp
Click1.Picture = Fp
ElseIf GridArray(Tempi, Tempj) = "Fiona" Then
Grid(Index).Picture = Fiona
Click1.Picture = Fiona
ElseIf GridArray(Tempi, Tempj) = "LSP" Then
Grid(Index).Picture = LSP
Click1.Picture = LSP
End If
ElseIf ClickCount = 2 Then
recordIndex2 = Index
If GridArray(Tempi, Tempj) = "Finn" Then
Grid(Index).Picture = Finn
Click2.Picture = Finn
ElseIf GridArray(Tempi, Tempj) = "Jake" Then
Grid(Index).Picture = Jake
Click2.Picture = Jake
ElseIf GridArray(Tempi, Tempj) = "Rainicorn" Then
Grid(Index).Picture = Rainicorn
Click2.Picture = Rainicorn
ElseIf GridArray(Tempi, Tempj) = "Beemo" Then
Grid(Index).Picture = Beemo
Click2.Picture = Beemo
ElseIf GridArray(Tempi, Tempj) = "Pb" Then
Grid(Index).Picture = Pb
Click2.Picture = Pb
ElseIf GridArray(Tempi, Tempj) = "Bannana" Then
Grid(Index).Picture = Bannana
Click2.Picture = Bannana
ElseIf GridArray(Tempi, Tempj) = "Ice_King" Then
Grid(Index).Picture = Ice_King
Click2.Picture = Ice_King
ElseIf GridArray(Tempi, Tempj) = "Peppermint_Butler" Then
Grid(Index).Picture = Peppermint_Butler
Click2.Picture = Peppermint_Butler
ElseIf GridArray(Tempi, Tempj) = "Marceline" Then
Grid(Index).Picture = Marceline
Click2.Picture = Marceline
ElseIf GridArray(Tempi, Tempj) = "Lemongrab" Then
Grid(Index).Picture = Lemongrab
Click2.Picture = Lemongrab
ElseIf GridArray(Tempi, Tempj) = "Cake" Then
Grid(Index).Picture = Cake
Click2.Picture = Cake
ElseIf GridArray(Tempi, Tempj) = "TreeTrunks" Then
Grid(Index).Picture = TreeTrunks
Click2.Picture = TreeTrunks
ElseIf GridArray(Tempi, Tempj) = "Lich" Then
Grid(Index).Picture = Lich
Click2.Picture = Lich
ElseIf GridArray(Tempi, Tempj) = "Gunter" Then
Grid(Index).Picture = Gunter
Click2.Picture = Gunter
ElseIf GridArray(Tempi, Tempj) = "Doggy" Then
Grid(Index).Picture = Doggy
Click2.Picture = Doggy
ElseIf GridArray(Tempi, Tempj) = "Pb" Then
Grid(Index).Picture = Pb
Click2.Picture = Pb
ElseIf GridArray(Tempi, Tempj) = "fp" Then
Grid(Index).Picture = Fp
Click2.Picture = Fp
ElseIf GridArray(Tempi, Tempj) = "Fiona" Then
Grid(Index).Picture = Fiona
Click2.Picture = Fiona
ElseIf GridArray(Tempi, Tempj) = "LSP" Then
Grid(Index).Picture = LSP
Click2.Picture = LSP
End If
CheckItOut = True
End If

If CheckItOut = True Then
MsgBox ("first image at check " & recordIndex1)
MsgBox ("second image at check " & recordIndex2)
If Click1.Picture = Click2.Picture Then
MsgBox "MATCH"
Grid(recordIndex1) = Check
Grid(recordIndex2) = Check
Else
MsgBox "NOT A MATCH "
Grid(recordIndex1) = Default
Grid(recordIndex2) = Default
End If
End If

If ClickCount = 1 Then
ClickCount = 2
Else
ClickCount = 1
End If

End Sub