vb auto fill text

how can i get the functionality in text box of auto fill, just like happen in Internet Explorer address bar,
i want to fill the text automatically with the company name, as soon as i write the first letter of that company,
means just the same functionality as we see in the msdn search,
plz help
thanks

Basically, you have to keep information in some sort of database, such as text file or access, and then when you type in the textbox, you have to write a sub that search through that database.

This kinda works if you store the list data to fill in an array.
CommonCity would be a string array with the data and CityLetters is how many letters into the word do you want to intiate the search.

Code:

---

Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode <> 8 Then
For X = 0 To 4
If LCase(Text3.Text) = LCase(Left(CommonCity$(X), CityLetters%)) Then
Text3.Text = CommonCity$(X)
Text3.SelStart = CityLetters%
SendKeys "+{End}"
End If
Next X
End If
End Sub

---

ALthough if you can put the info in a database then it becomes a lot easier.
Here is the same situation but with a database (it works better)
deTracker is a data environment and rstbCmns is a recordset you should be able to figure the rest out.

Code:

---

Private Sub txtCity_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode <> 8 And Len(txtCity.Text) > 1 And Shift = 0 Then
pWord = txtCity.Text
On Error GoTo nomatch
deTracker.rstbCmns.Filter = "City Like '" & pWord & "*'"
deTracker.rstbCmns.MoveFirst
txtCity.Text = txtCity.Text & Mid(deTracker.rstbCmns!City, Len(pWord) + 1, Len(deTracker.rstbCmns!City))
txtCity.SelStart = Len(pWord)
txtCity.SelLength = Len(txtCity.Text) - Len(pWord)
nomatch:
ElseIf Shift = 1 Then
txtCity.SelStart = Len(pWord)
txtCity.SelLength = Len(txtCity.Text) - Len(pWord)
End If
End Sub

---