Visual Basic - completar textbox

como hago para completar un text box mientras se escribe; Es decir eque el programa complete la trase que posiblemente este escriobiendo el ususrio

Intenta este codigo. Se requiere un TextBox y un ListBox

Private Sub Form_Load()
List1.AddItem "Jorge Estrada"
List1.AddItem "John Connor"
List1.AddItem "Horacio Villanueva"
End Sub

Private Sub Text1_Change()
If Text1 > "" Then

For i = 0 To List1.ListCount - 1

If List1.List(i) Like "*" & Text1 & "*" Then
Cuantos = Len(Text1)
Text1 = Text1 & Mid(List1.List(i), Len(Text1) + 1)
Text1.SelStart = Cuantos
Text1.SelLength = Len(Text1)
End If

Next i

End If
End Sub