Game Memory pada vb.net

Public Class Form1

    Dim soal(99) As Integer

    Dim soalbaru(99) As Integer

    Dim x(99) As Button

    Dim j1 As Integer = 0

    Dim j2 As Integer = 0

    Dim ctrSoal As Integer = 0

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

        Dim ctr As Integer = 0

        Dim jKartu As Integer = CInt(TextBox1.Text) * CInt(TextBox2.Text)

        For i As Integer = 1 To CInt(TextBox1.Text)

            For j As Integer = 1 To CInt(TextBox2.Text)

                x(ctrSoal) = New Button

                x(ctrSoal).Width = 40

                x(ctrSoal).Height = 40

                x(ctrSoal).Left = (j - 1) * 40 + 15

                x(ctrSoal).Top = (i - 1) * 40 + 65

                Dim r As Integer

                Dim ket As Boolean = False

                Do While ket = False

                    Randomize()

                    r = Rnd() * (CInt(TextBox1.Text) * CInt(TextBox2.Text) - 1) + 1

                    ket = True

                    For l As Integer = 0 To ctrSoal - 1

                        If r = soal(l) Then

                            ket = False

                        End If

                    Next

                Loop

                soal(ctrSoal) = r

                If soal(ctrSoal) > (jKartu / 2) Then

                    soalbaru(ctrSoal) = soal(ctrSoal) - (jKartu / 2)

                Else

                    soalbaru(ctrSoal) = soal(ctrSoal)

                End If

                x(ctrSoal).Text = "*"

                x(ctrSoal).Name = soalbaru(ctrSoal)

                AddHandler x(ctrSoal).Click, AddressOf klik

                Me.Controls.Add(x(ctrSoal))

                ctrSoal += 1

            Next

        Next

    End Sub

    Sub klik(sender As Object, e As EventArgs)

        If (CType(sender, Button).Text <> "-") Then

            If (j1 = 0 Or j2 = 0) Then

                If j1 <> 0 Then

                    j2 = CType(sender, Button).Name

                Else

                    j1 = CType(sender, Button).Name

                End If

                CType(sender, Button).Text = CType(sender, Button).Name

            End If

        End If

    End Sub

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

        Dim benar As Boolean = False

        If j1 = j2 Then

            benar = True

        End If

        For i As Integer = 0 To ctrSoal - 1

            If x(i).Text <> "*" And x(i).Text <> "-" Then

                If benar Then

                    x(i).Text = "-"

                Else

                    x(i).Text = "*"

                End If

            End If

        Next

        j1 = 0

        j2 = 0

    End Sub

End Class