Private Sub btncalvin_Click(sender As Object, e As EventArgs) Handles btncalvin.Click
        txtproduct.Text = btncalvin.Text
    End Sub

	Private Sub btncalvin2_Click(sender As Object, e As EventArgs) Handles btncalvin2.Click
        txtproduct.Text = btncalvin2.Text
    End Sub

    Private Sub btnnobel_Click(sender As Object, e As EventArgs) Handles btnnobel.Click
        txtproduct.Text = btnnobel.Text
    End Sub

    Private Sub btnpepe_Click(sender As Object, e As EventArgs) Handles btnpepe.Click
        txtproduct.Text = btnpepe.Text
    End Sub

    Private Sub btnpepe2_Click(sender As Object, e As EventArgs) Handles btnpepe2.Click
        txtproduct.Text = btnpepe2.Text
    End Sub