[Resolvido]Selecionar todos os itens de uma caixa de listagem

Boa tarde Srs. !!!

Eu preciso selecionar todos os itens de uma caixa de listagem através de um botão alguém pode me passar o código, segue o nome do formulário e da caixa de listagem:

Frm_Rel_Financeiro - Formulário
clt_centro - Caixa de Listagem
btn_selecionar - Nome do Botão

Aguardo...

Obrigado

Consegui o código junto ao site do mestre avelino segue abaixo como ficou para futuro aprendizado:

Dim n As Integer
For n = (Me!clt_centro.ListCount - 1) To 0 Step -1
'------------------------------
'Vai marcando item por item
'------------------------------
Me!clt_centro.Selected(n) = True
Next
Me!txtFiltro.SetFocus

Valeu!!!!

Olá Pedro,

Obrigado pelo retorno, o fórum agradece.

Abraço