Ciao
Aggiungo solo che se vuoi fa apparire come TextBox imposta anche la proprietà .DropDownStyle = ComboBoxStyle.Simple
Me.ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
Me.ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
Me.ComboBox1.DropDownStyle = ComboBoxStyle.Simple
Dim COMUNI() As String = {"Agliè", _
"Airasca", _
"Ala di Stura", _
"Albiano d'Ivrea", _
"Alice Superiore", _
"Almese", _
"Alpette", _
"Alpignano", _
"Brandizzo", _
"Bricherasio", _
"Brosso", _
"Brozolo", _
"Bruino", _
"Brusasco", _
"Bruzolo", _
"Buriasco", _
"Burolo", _
"Busano", _
"Bussoleno", _
"Buttigliera Alta", _
"Cafasse", _
"Caluso", _
"Cambiano", _
"Campiglione-Fenile", _
"Candia Canavese", _
"Candiolo", _
"Ciriè", _
"Claviere", _
"Coassolo Torinese", _
"Coazze", _
"Collegno", _
"Colleretto Castelnuovo", _
"Colleretto Giacosa", _
"Condove", _
"Corio", _
"Frassinetto", _
"Front", _
"None", _
"Novalesa", _
"Oglianico", _
"Orbassano", _
"Orio Canavese", _
"Osasco", _
"Osasio", _
"Oulx", _
"Ozegna", _
"Palazzo Canavese", _
"Pancalieri", _
"Parella", _
"Pavarolo", _
"Pavone Canavese", _
"Pecco", _
"Pecetto Torinese", _
"Perosa Argentina", _
"Perosa Canavese", _
"Rivarolo Canavese", _
"Rivarossa", _
"Rivoli", _
"Robassomero", _
"Rocca Canavese", _
"Roletto", _
"Romano Canavese", _
"Ronco Canavese", _
"Rondissone", _
"Rorà", _
"Rosta", _
"Roure", _
"Rubiana", _
"Rueglio"}
Me.ComboBox1.Items.AddRange(COMUNI)
Ciao
alexmed