[أبو خالد الشكري]

تفضل هذه إجابة السؤال الأول :
النتيجة تظهر في TextBox1

كود :

TextBox1.Text = ListBox1.SelectedItem

وهذه إجابة السؤال الثاني :

ضع الكود التالي في زر Button

وتكون أداة البحث هي TextBox2

كود :

For i As Integer = 0 To ListBox1.Items.Count - 1
           If ListBox1.Items.Item(i) = Trim(TextBox2.Text) Then
               ListBox1.SelectedIndex = i
               Exit For
           End If
       Next