Visual Basic.NET - ListBox.FindString

Eh encontrado por la red que el metodo FindString encuentra el primer elemento que encuentra en un ListBox segun el string recibido como parametro. Pero no e encontrado la forma de copiar todos los elementos enontrados de un list a otro.
Por ejemplo, yo tengo en mi lista :

Jose Esqueda
Juan Morales
Juan Urrutia
Kimberly Martinez
Laura Gomez
Lorenzo Moya

y al buscar una "J "necesito que en otro list se agregue:
Jose Esqueda
Juan Morales
Juan Urrutia

si busco "Jo" que en eltro list ahora solo agregue:
Jose Esqueda

Algo asi como una busqueda segun la letra ke vaya escribiendo....

Alguien tiene una sugerencia, cualquier aportacion es bienvenida. Gracias por su tiempo de cualquier forma.

Uhmm, no sabia de ese metodo gracias por eso.

Pero igual lo quise implementar para usarlo, y ese metodo me devuelve la posicion del indice elemento encontrado pero inicia en -1 y me devolvia otros valores. Entonces si complicarme mucho lo hice asi:

Agregas 2 listbox, un boton y en el evento clic pones:

Me.ListBox2.Items.Clear()
For i As Integer = 0 To Me.ListBox1.Items.Count - 1
If Me.ListBox1.Items.Item(i).ToString.ToUpper.Contains("JO") Then
Me.ListBox2.Items.Add(Me.ListBox1.Items.Item(i))
End If
Next

Y funciona.

P.D: Contains, te devuelve TRUE o FALE si encuentra coincidencia del caracter en la cadena, mucho mejor :D

Saludos.

Saludos P.J.

Lo ke me envias es cierto ke funciona...pero...busca en toda la cadena del elemento, no es posible buscar solo al principio?, mi idea es que en el list2 se vaya autocompletanto segun escriba letra por letra.........¿Hay alguna forma de hacer lo mismo pero solo comparando empezando desde el principio de la cadena?....

Gracias.

Uhmmm, pues si te entendi bien entonces:

Teniendo la sgte lista:

Jose Esqueda
Juan Morales
Juan Urrutia
Kimberly Martinez
Laura Gomez
Lorenzo Moya

Si yo agregara mi nombre: Pablo Jose

Este ultimo no deberia aparecer porque solo toma los del inicio, prueba este codigo si es de esta manera:

Me.ListBox2.Items.Clear()
Dim strCadena As String = "JO"
For i As Integer = 0 To Me.ListBox1.Items.Count - 1
If Me.ListBox1.Items.Item(i).ToString.Substring(0, strCadena.Length).ToUpper = strCadena.ToUpper Then
Me.ListBox2.Items.Add(Me.ListBox1.Items.Item(i))
End If
Next

Solo me agrego: Jose Esqueda

Suerte.

Tu codigo funcionó a la perfeccion. A medida que voy introduciendo caracteres en el cuadro de texto (txt_Buscar) se van agregando las coincidencias de ListBox1 a ListBox2, y si voy borrando caracteres, se van eliminando.

Ahora, cuando introdusco el nombre del elemento completo (Por ejemplo, en ListBox1 tengo el elemento "Jose", y en el cuadro de texto (txt_Buscar) introdusco "Jose") me arroja el siguiente error:

No se controló ArgumentOutOfRangeException
El indice y la longitud deben hacer referencia a una ubicacion en la cadena. Nombre parámetro: lenght.

El codigo que tengo yo en mi TextBox es el siguiente:

Private Sub txt_Buscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Buscar.TextChanged

Dim strCadena As String = txt_Buscar.Text
ListBox2.Items.Clear()

For i As Integer = 0 To ListBox1.Items.Count - 1
If txt_Buscar.Text = "" Then
ListBox2.Items.Clear()
ElseIf ListBox1.Items.Item(i).ToString.Substring(0, strCadena.Length).ToUpper = strCadena.ToUpper Then
ListBox2.Items.Add(ListBox1.Items.Item(i))
End If
Next

End Sub

Ojala puedan ayudarme :'(. Gracias, chao :D.