ขอสอบถามเกี่ยวกับเรื่องค่าใน listbox ให้ขึ้นใน textbox อ่ะครับ

 Private Sub Btn_CheckD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_CheckD.Click
        DSetRearchName.Clear()
        DTableRearchName.Clear()
        Lst_ShowDealer.ClearSelected()
        Lst_ShowDealer.Visible = False
        Txt_DealerId.Clear()

        Txt_DealerName.Text = Trim(Txt_DealerName.Text)
        DealerNameOrderD = Txt_DealerName.Text

        If DealerNameOrderD <> "" Then
            DealerNameOrderD = Txt_DealerName.Text
            Connect()
            SetCommand("select * from Dealer_Table where DL_Name Like @DealerName+'%'")
            Cmd.Parameters.AddWithValue("DealerName", DealerNameOrderD)
            Adpter.Fill(DSetRearchName, "DealerNCheck_T")
            DTableRearchName = DSetRearchName.Tables("DealerNCheck_T")


            If DTableRearchName.Rows.Count <> 0 Then
                Lst_ShowDealer.Visible = True
                Lst_ShowDealer.DataSource = DTableRearchName
                Lst_ShowDealer.DisplayMember = "DL_Name"
                Lst_ShowDealer.ValueMember = "DL_Id"
                Lst_ShowDealer.SelectedIndex = 0

            Else
                Dim Mbr As MsgBoxResult
                Mbr = MsgBox("ไม่มีผู้จัดจำหน่ายชื่อ" & DealerNameOrderD & "รายนี้" & vbCrLf & "กรุณาเพิ่มรายชื่อผู้จัดจำหน่ายรายใหม่", _
                             MsgBoxStyle.OkCancel + _
                             MsgBoxStyle.Question, _
                             "ยืนยันการเพิ่มรายชื่อผู้จัดจำหน่าย")
                If (Mbr = MsgBoxResult.Ok) Then
                    FDealer.ShowDialog()
                End If

            End If
        Else
            MessageBox.Show("กรุณากรอกชื่อผู้จัดจำหน่ายให้ครบถ้วน", "ข้อผิดพลาด")
            Txt_DealerName.Text = ""
        End If

    End Sub

    Private Sub Lst_ShowDealer_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lst_ShowDealer.DoubleClick
        Try
            DealerIdOrderD = Lst_ShowDealer.SelectedValue.ToString
            Txt_DealerId.Text = DealerIdOrderD

        Catch ex As Exception

        End Try
        Lst_ShowDealer.Visible = False
    End Sub

    Private Sub Lst_ShowDealer_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lst_ShowDealer.SelectedValueChanged
        Try

            DealerNameOrderD = Lst_ShowDealer.Text
            Txt_DealerName.Text = DealerNameOrderD
        Catch ex As Exception

        End Try
    End Sub