ملء Textbox باستعمال Listbox

أخي الكريم جرب هذا الكود

 Private Sub ListBox_Countries_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox_Countries.SelectedIndexChanged
        If TextBox1.Text.Contains(ListBox_Countries.SelectedItem) Then
            Exit Sub

        End If
        If TextBox1.Text.Contains("Countries :") Then
            TextBox1.Text = TextBox1.Text + vbNewLine + "      " + ListBox_Countries.SelectedItem
        Else
            TextBox1.Text = "Countries :" + vbNewLine + "      " + ListBox_Countries.SelectedItem
        End If



    End Sub

جزاكم الله خيراً وبارك فيكم.

أسأل الله أن يزيدك من فضله وأن يعلمك كما علمتني.