[سعود]

PHP كود :

Public Class Form1

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyData = Keys.Enter Then
            CheckedListBox1.SelectedIndex = CheckedListBox1.Items.IndexOf(sender.text)
            CheckedListBox1.SetItemChecked(CheckedListBox1.SelectedIndex, True)
            SendKeys.Send("{backspace}")
        End If
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        'For x As Integer = 0 To CheckedListBox1.Items.Count - 1
        '    If CheckedListBox1.Items(x).ToString.Contains(TextBox1.Text) Then
        '        CheckedListBox1.SelectedIndex = x
        '        Return
        '    End If
        'Next
    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged
        TextBox2.Clear()
        For Each Item As Object In CheckedListBox1.CheckedItems

            If TextBox2.Text = "" Then
                TextBox2.AppendText(Item.ToString)
            Else
                TextBox2.AppendText(" ; " + Item.ToString)
            End If
            TextBox1.Focus()
        Next
    End Sub

End Class