Caixa de Listagem - selecionar todos os registos

Boa noite,

agradeço a vossa ajuda para indicarem qual o código que poderei usar para selecionar todos os registos existentes numa caixa de listagem.
eu uso o seguinte código para "limpar" os dados selecionados:

Código:

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

sabem também se é possível criar um botão com o objetivo de selecionar apenas dois registos existentes nessa caixa de listagem?

Será que alguém consegue-me ajudar nesta situação por favor.
obrigado.

Bom dia!

Tenta o mesmo código, mas em vez de false coloque true, ok?
veja um exemplo do Ms. Avelino

By Avelino Sampaio
Private Function fncSelecionar(Status As Boolean)
Dim j As Long
For j = Me!Lista.ListCount - 1 To 0 Step -1
Me!Lista.Selected(j) = Status
Next
Me!Lista.SetFocus
Me!Lista = 0
End Function

No evento ao abrir de um botão ele chama a função da seguinte forma. =fncSelecionar(Verdadeiro) para selecionar tudo e =fncSelecionar(Falso) para limpar seleção...
Quanto ao botão os registros são aleatorios ou pré-definidos?
Poste o banco pra avaliarmos...

Boa noite!

Welligton, esse código do Avelino deve ser inserido aonde?