ORDENAR LISTBOX POR LETRA VB6

GUGUSINBANSAI 21/08/2011 23:02:17
#382208

Eu tenho o seguinte código:
sFilename = Dir(App.Path & [Ô]\Clientes\[Ô])
Do While sFilename > [Ô][Ô]
Wsplit = Split(sFilename, [Ô].[Ô])
Nomes.AddItem Wsplit(0)
sFilename = Dir()
Loop
Eu queria que quando eu selecionasse uma letra em uma combobox a listbox seria filtrada com os items que começam com a letra da combobox.


Espero que me ajudem. Desde já agradeço.