Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim txt As New TextBox With {.Location = New Point(50, 50)}
        Dim acs As New AutoCompleteStringCollection
        acs.Add("Apfel")
        acs.Add("Banane")
        acs.Add("Orange")
        acs.Add("Zitrone")
        txt.AutoCompleteCustomSource = acs
        txt.AutoCompleteMode = AutoCompleteMode.Suggest
        txt.AutoCompleteSource = AutoCompleteSource.CustomSource
        Me.Controls.Add(txt)
    End Sub
End Class

"iPod oder EiPott?"