Public Class Form1

    'Os creditos têm de ser dimensionados globalmente pois vai ser usado em todo o programa
    Dim creditos As Integer

    'Eu dimensionei os números aleatórios globalmente mas acho que não era necessário
    Dim numero_random_1, numero_random_2, numero_random_3 As Byte

    'Este é o Sub de carregar no botão para jogar
    Private Sub Button_Jogar_Click(sender As Object, e As EventArgs) Handles Button_Jogar.Click

        'Como só podemos jogar se tivermos créditos, temos de pôr uma condição para ver se temos, ou não, créditos.
        'Se tivermos creditos > 0, o programa corre as linhas no Then. Caso contrário, corre as linhas no Else.
        If (creditos > 0) Then

            'De cada vez que jogamos, perdemos um crédito:
            creditos = creditos - 1

            'Criação dos números aleatórios de 0 a 9 e colocá-los nas respetivas labels (poderiam ser usados, por exemplo, textboxs):
            Randomize()
            numero_random_1 = Int(Rnd() * 10)
            numero_random_2 = Int(Rnd() * 10)
            numero_random_3 = Int(Rnd() * 10)
            Label1.Text = Str(numero_random_1)
            Label2.Text = Str(numero_random_2)
            Label3.Text = Str(numero_random_3)

            'As seguintes condições servem para testar os números aleatórios que sairam e ver que prémios o jogador ganhará:
            If (numero_random_1 = 9 And numero_random_2 = 9 And numero_random_3 = 9) Then
                creditos = creditos + 10
                'A linha de código abaixo só serve para atualizar a label que mostra os créditos que o jogador tem.
                Label_Creditos.Text = Str(creditos)
            ElseIf (numero_random_1 = numero_random_2 And numero_random_1 = numero_random_3 And numero_random_2 = numero_random_3) Then
                creditos = creditos + 3
                Label_Creditos.Text = Str(creditos)
            ElseIf (numero_random_1 = numero_random_2 Or numero_random_1 = numero_random_3 Or numero_random_2 = numero_random_3) Then
                creditos = creditos + 2
                Label_Creditos.Text = Str(creditos)
            End If
        Else
            MsgBox("Não tem créditos suficientes para jogar!", MsgBoxStyle.OkOnly, "Falta de créditos")
        End If


    End Sub

    'Este é o Sub de carregar no botão para inserir mais créditos (que foram introduzidos na textbox TextBox_Inserir_Creditos)
    Private Sub Button_Inserir_Creditos_Click(sender As Object, e As EventArgs) Handles Button_Inserir_Creditos.Click

        Dim num_creditos_a_inserir As Integer

        num_creditos_a_inserir = Val(TextBox_Inserir_Creditos.Text)
        creditos = creditos + num_creditos_a_inserir
        Label_Creditos.Text = Str(Val(Label_Creditos.Text) + Val(TextBox_Inserir_Creditos.Text))

    End Sub

End Class