PS: son riuscito a riordinare l'array in elenco alfabetico in questa maniera:
codice:Dim lettera As String Dim z As Integer Dim iniziale As String For z = 0 To 9 lettera = nome(z) iniziale = lettera.Remove(1) Select Case iniziale Case "f" ListBox1.Items.Add(nome(z)) Case "w" ListBox2.Items.Add(nome(z)) Case "g" ListBox3.Items.Add(nome(z)) Case "a" ListBox4.Items.Add(nome(z)) Case "k" ListBox5.Items.Add(nome(z)) End Select Next


Rispondi quotando