PREENCHER TEXTBOX COM DADOS DA LISTBOX

XYKOVIEIRA 27/04/2011 13:27:06
#372616

Galera, tenho uma Listbox que carrega nomes de uma base de dados Access.
O código é o seguinte:

[ô] Evento Load do Form
While Not Tabela_N.EOF
List1.AddItem Tabela_N!Diretor
List1.AddItem Tabela_N!Supervisor
List1.AddItem Tabela_N!Administrativo
List1.AddItem Tabela_N!Contador
Tabela_N.MoveNext
Wend

[ô] Evento Change da Textbox Diretor
List1.Visible = True
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(txtDiretor.Text))
If txtDiretor.Text = [Ô][Ô] Then List1.Visible = False

Como está, à medida em que vou digitando o nome da textbox, a lista da Listbox
vai se posicionando, deixando selecionado o nome que mais se aproxime do que
foi digitado.
Preciso de uma rotina para, quando clicar com o botão direito no nome selecionado
na Listbox, ela não fique com a propriedade Visible=False, e permita que eu possa
copiar o nome selecionado e colar na textbox onde iniciei a digitação (evitando a
possibilidade de erro de digitação).
Agradeço a atenção...