ให้ Textbox2 โชว์ข้อมูล Textbox1 ทำยังไงหรอครับ ลบกวนทีนะครับผม

Private Sub cmdAddPro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddPro.Click
        If txtProID.Text = "" Then Exit Sub
        If CInt(txtQty.Text) < 1 Then
            MessageBox.Show("จำนวนขายผิด")
            Exit Sub
        End If

        Dim i As Integer = 0
        Dim ListViewItem As ListViewItem
        Dim tmpProid As String
      
        For i = 0 To ListView1.Items.Count - 1
            tmpProid = ListView1.Items(i).SubItems(0).Text
            If txtProID.Text = tmpProid Then
                MessageBox.Show("เลือกรหัสสินค้าซ้ำ กรุณาตรวจสอบ หากต้องการขายสินค้าชนิดนี้เพิ่มเติมให้ทำการเคลียร์ข้อมูลสินค้าเดิมแล้วขายใหม่", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                ClearProductData()
                Exit Sub
            End If
        Next

        Dim Data()
        'Dim SumPrice As String = txtPrice.Text 
      [font=Verdana]  txtPrice.Text = CStr(txtProPrice.Text) * CInt(txtQty.Text)
        txtTotal.Text = (txtPrice.Text)[/font]
      
        Data = New String() { _
        txtNumber.Text, _
        txtProID.Text, _
        txtProName.Text, _
        txtQty.Text, _
        txtProPrice.Text, _
        txtPrice.Text, _
        txtMsn.Text}

        ListViewItem = New ListViewItem(Data)
        ListView1.Items.Add(ListViewItem)

        ClearProductData()
        CaltxtTotal()
        'CaltxtPrice()
    End Sub