Question

Project 2 – Memory Match Game
Purpose
This Windows Classic Desktop application plays a simple matching game. The game simulates a card game where the cards a placed face down and the player flips over pairs of cards in an attempt to find matching cards.  
Program Procedure
Display a 4x4 grid of “face down” cards. Assign the letters A through H randomly to the cards in pairs. Allow the user to click on a card to “flip” it over and display the number. The player can then “flip” a second card to see if they match. If the cards match, they are removed from the grid (hidden) and the player scores some points. If they do not match the player can click on them to flip them back over and start another turn. Once all of the cards have been matched the game is over.
Requirements
1. Start of game displays 4x4 grid and assigns hidden letters (in pairs) to each of the cards and sets the initial score to 0. 2. User clicks on a card to flip it over and reveal its letter. 3. User then clicks on a second card to flip it over and reveal its letter. 4. If the cards match clicking a second time on either of the cards will earn the player some points and remove (hide/disable) the matched cards from the grid 5. If they do not match clicking on either of the flipped cards will turn both cards back over to hide their letters. 6. Each card starts out with a point value of 20 7. Each time a card is flipped and is not part of a match its point value is reduced by 5 8. The points scored for a match are based on the sum of the point values of the matching cards 9. Display a list of matched cards and the points earned for each match and the total points for the game.  
Notes and Restrictions
1. Minimum points for any card is -5
Comments
The player can start a new game at any time. Current scores will be discarded and a new face down grid displayed.  
Deduct the 5 points from the cards when they are flipped back (requirement 5)

I have tried it but I can only get the buttons to show the letters and nothing else can someone help me, my code is:

Dim strBoxContent(15) As String

Dim letters() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "A", "B", "C", "D", "E", "F", "G", "H"}

Dim Button(15) As Button

Dim rnd = New System.Random

Dim intPrevious As Integer

Dim intCurrent As Integer

Dim btnIsDisplayed(15) As Boolean

Dim intTotal As Integer

Dim currentPoints As Integer

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Button(0) = Button0

Button(1) = Button1

Button(2) = Button2

Button(3) = Button3

Button(4) = Button4

Button(5) = Button5

Button(6) = Button6

Button(7) = Button7

Button(8) = Button8

Button(9) = Button9

Button(10) = Button10

Button(11) = Button11

Button(12) = Button12

Button(13) = Button13

Button(14) = Button14

Button(15) = Button15

PopulateButtons()

End Sub

Sub ButtonClicks(i As Integer, s As Button)

Dim holder As Integer = i

Dim btn1 As Button = New Button

Dim btn2 As Button = New Button

Dim c As Integer

If i.Equals(intPrevious) = True OrElse i.Equals(intCurrent) = True Then

If btn1.Text = btn2.Text Then

Button(intPrevious).Visible = False

Button(intCurrent).Visible = False

Button(intPrevious).Text = ""

Button(intCurrent).Text = ""

intPrevious = -1

intCurrent = 0

intTotal = intTotal + currentPoints

LabelTotal.Text = "Score: " & intTotal

Else

Button(intPrevious).Text = ""

Button(intCurrent).Text = ""

'(intCurrent) = False

'btnIsDisplayed(intPrevious) = False

If currentPoints <> -5 Then

currentPoints = currentPoints - 5

End If

intTotal = intTotal + currentPoints

LabelTotal.Text = "Score: " & intTotal

End If

ElseIf c = 1 Then

If intPrevious = holder Then

MsgBox("Fuck")

Exit Sub

Else

intCurrent = holder

'btnIsDisplayed(intCurrent) = True

s.Text = s.Tag

btn2 = s

End If

Else

intPrevious = holder

'btnIsDisplayed(intPrevious) = True

s.Text = s.Tag

c = 1

btn1 = s

End If

GameOver()

End Sub

Private Sub ButtonNG_Click(sender As Object, e As EventArgs) Handles ButtonNG.Click

PopulateButtons()

End Sub

Sub PopulateButtons()

Dim i As Integer

Dim c As Integer = 0

For i = 0 To 15

Button(i).Tag = ""

Button(i).Text = ""

btnIsDisplayed(i) = False

Next

While c < 16

i = rnd.Next(16)

If Button(i).Tag = "" Then

Button(i).Tag = letters(c)

c += 1

End If

End While

currentPoints = 20

intPrevious = -1

intCurrent = -1

intTotal = 0

LabelTotal.Text = "Score: " & intTotal

End Sub

Sub GameOver()

Dim i As Integer

Dim Check As Integer = 0

For i = 0 To 15

If Button(i).Visible = False Then

Check = Check + 1

End If

Next

If Check = 16 Then

MsgBox("Game Over!")

End If

End Sub

Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click

ButtonClicks(0, Button0)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

ButtonClicks(1, Button1)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

ButtonClicks(2, Button2)

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

ButtonClicks(3, Button3)

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

ButtonClicks(4, Button4)

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

ButtonClicks(5, Button5)

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

ButtonClicks(6, Button6)

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

ButtonClicks(7, Button7)

End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

ButtonClicks(8, Button8)

End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

ButtonClicks(9, Button9)

End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

ButtonClicks(10, Button10)

End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

ButtonClicks(11, Button11)

End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

ButtonClicks(12, Button12)

End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click

ButtonClicks(13, Button13)

End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

ButtonClicks(14, Button14)

End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click

ButtonClicks(15, Button15)

End Sub

End Class

Dim strBoxContent(15) As String

Dim letters() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "A", "B", "C", "D", "E", "F", "G", "H"}

Dim Button(15) As Button

Dim rnd = New System.Random

Dim intPrevious As Integer

Dim intCurrent As Integer

Dim btnIsDisplayed(15) As Boolean

Dim intTotal As Integer

Dim currentPoints As Integer

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Button(0) = Button0

Button(1) = Button1

Button(2) = Button2

Button(3) = Button3

Button(4) = Button4

Button(5) = Button5

Button(6) = Button6

Button(7) = Button7

Button(8) = Button8

Button(9) = Button9

Button(10) = Button10

Button(11) = Button11

Button(12) = Button12

Button(13) = Button13

Button(14) = Button14

Button(15) = Button15

PopulateButtons()

End Sub

Sub ButtonClicks(i As Integer, s As Button)

Dim holder As Integer = i

Dim btn1 As Button = New Button

Dim btn2 As Button = New Button

Dim c As Integer

If i.Equals(intPrevious) = True OrElse i.Equals(intCurrent) = True Then

If btn1.Text = btn2.Text Then

Button(intPrevious).Visible = False

Button(intCurrent).Visible = False

Button(intPrevious).Text = ""

Button(intCurrent).Text = ""

intPrevious = -1

intCurrent = 0

intTotal = intTotal + currentPoints

LabelTotal.Text = "Score: " & intTotal

Else

Button(intPrevious).Text = ""

Button(intCurrent).Text = ""

'(intCurrent) = False

'btnIsDisplayed(intPrevious) = False

If currentPoints <> -5 Then

currentPoints = currentPoints - 5

End If

intTotal = intTotal + currentPoints

LabelTotal.Text = "Score: " & intTotal

End If

ElseIf c = 1 Then

If intPrevious = holder Then

MsgBox("Fuck")

Exit Sub

Else

intCurrent = holder

'btnIsDisplayed(intCurrent) = True

s.Text = s.Tag

btn2 = s

End If

Else

intPrevious = holder

'btnIsDisplayed(intPrevious) = True

s.Text = s.Tag

c = 1

btn1 = s

End If

GameOver()

End Sub

Private Sub ButtonNG_Click(sender As Object, e As EventArgs) Handles ButtonNG.Click

PopulateButtons()

End Sub

Sub PopulateButtons()

Dim i As Integer

Dim c As Integer = 0

For i = 0 To 15

Button(i).Tag = ""

Button(i).Text = ""

btnIsDisplayed(i) = False

Next

While c < 16

i = rnd.Next(16)

If Button(i).Tag = "" Then

Button(i).Tag = letters(c)

c += 1

End If

End While

currentPoints = 20

intPrevious = -1

intCurrent = -1

intTotal = 0

LabelTotal.Text = "Score: " & intTotal

End Sub

Sub GameOver()

Dim i As Integer

Dim Check As Integer = 0

For i = 0 To 15

If Button(i).Visible = False Then

Check = Check + 1

End If

Next

If Check = 16 Then

MsgBox("Game Over!")

End If

End Sub

Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click

ButtonClicks(0, Button0)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

ButtonClicks(1, Button1)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

ButtonClicks(2, Button2)

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

ButtonClicks(3, Button3)

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

ButtonClicks(4, Button4)

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

ButtonClicks(5, Button5)

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

ButtonClicks(6, Button6)

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

ButtonClicks(7, Button7)

End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

ButtonClicks(8, Button8)

End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

ButtonClicks(9, Button9)

End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

ButtonClicks(10, Button10)

End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

ButtonClicks(11, Button11)

End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

ButtonClicks(12, Button12)

End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click

ButtonClicks(13, Button13)

End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

ButtonClicks(14, Button14)

End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click

ButtonClicks(15, Button15)

End Sub

End Class