مشكلة في زيادة كمية الصنف الي الفاتورة المبيعات

كود :
   Private Sub TextBox3_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown



        If e.KeyCode = Keys.Enter Then



            For i As Integer = 0 To Me.FlowLayoutPanel3.Controls.Count - 1



                If Me.FlowLayoutPanel3.Controls(i).Controls("lbl_barcode").Text = BunifuTextBox2.Text Then



                 

                  uc.Label2.Text = uc.Label2.Text + 1

                    uc.Label3.Text = Val(uc.Label1.Text) * Val(uc.Label2.Text)

                   

                    Exit Sub

                End If

      Next



            Dim uc As New uc_cart_bill_sale

            uc.lbl_barcode.Text = BunifuTextBox2.Text

            uc.Name = TextBox1.Text

            uc.btn.Text = TextBox1.Text

            uc.Label1.Text = TextBox2.Text

            uc.Label2.Text = 1

            uc.Label3.Text = Val(uc.Label1.Text) * Val(uc.Label2.Text)

            Me.FlowLayoutPanel3.Controls.Add(uc)

                  End If



    End Sub