Botão selecionar

Boa noites amigos mais uma vez venho pedir ajuda a vocês desse excelente fórum tenho um formulário e nesse formulário criei uma caixa de listagem com todos os registro criei também um botão para limpar registros selecionados .Gostaria de criar um botão para selecionar todos os registro como que faço? Tentei mudar o código de limpar para true mais não funcionou.

Veja o código para limpar:

Private Sub Comando59_Click()
Dim item As Variant
'Limpa a seleção dos itens
For Each item In Me!Lista0.ItemsSelected
Me!Lista0.Selected(item) = False
Next item
End Sub

Bom dia,

Código:

Dim I as integer
'Limpa a seleção dos itens
For i=0 to Me!Lista0.listcount
Me!Lista0.Selected(I) = False
Next

Obrigado amigo deu certo conseguir selecionar toda a caixa de lestagem mudando false para true So não conseguir imprimir proque deu o seguinte erro no filtro do relatorio: erro em tempo de execução 7769, a operação de filtragem foi canselada.O filtro ficaria muito longo.,
Veja a linha da filtragem do relatorio, temo como mim ajudar como resolver esse erro?

DoCmd.OpenReport "rcartão", acViewReport, , strCriteria

Bom dia,
Se a dúvida está resolvida, marque resolvido
Se te outra dúvida, diferente, não misture com esta. Vamos manter o fórum organizado