Código para o botão Cancelar Sub Cancelar_Click end End Sub
Código para o botão OK Sub OK_Click msgbox "Você selecionou " + list1.text End Sub
Sub Form_Load( ) list1.AddItem "Salvador" list1.AddItem "Fortaleza" list1.AddItem "Recife" list1.AddItem "São Paulo" list1.AddItem "Rio de Janeiro" list1.AddItem "Natal" list1.AddItem "Vitória" list1.AddItem "Porto Alegre" list1.AddItem "Manaus" list1.AddItem "Porto Velho" list1.AddItem "Belém" End Sub
Sub Text1_Change( ) Search$=UCase$(text1.text) Searchlen=len(Search$) If Searchlen then For i=0 to list1.ListCount-1 if Ucase$(Left$(List.List(i),Searchlen))=Search$ then List1.ListIndex=I Exit For End if Next Endif End SubA localização do item coincidente e feito pelo laço For/Next que transfere a barra de seleção para o item correspondente(List1.ListIndex=I), saindo do loop com Exit For.
Pronto ! Agora Salve o seu projeto e teste-o. Que tal ? Simples, não ?