[Resolvido]Opção Múltiplas "Nenhum e Simples "

Boa tarde pessoal
Gostaria de uma ajuda para resolver esta questão
No meu Lsit gostaria de usar na opção múltiplas (nenhum e simples “MultiSelect”)
Nenhuma por padrão para alterar uma linha e simples “MultiSelect” para deletar um conjunto de linhas
eu pesquisei mais nada que de certo!

https://docs.microsoft.com/pt-br/office/vba/api/access.listbox.multiselect

Olhei o no fórum enteriro com a palavra chave “multiselect”. Esse do fórum mesmo não deu certo, ao chamar a macro ele limpa as variáveis do form.

https://www.maximoaccess.com/t20421-alternar-a-propriedade-multiselect-da-listbox-entre-1-e-2-com-o-vba#150385

Não montei ainda estou desenhado o protejo e esbarrei nesta questão do operador seleccionar mais do que uma linha e achar que irá aplicar instrução em todas.

Bom dia

Na ação altera vou contar o número de linhas selecionados se houver mais do que uma linha selecionada emito uma mensagem e limpo os itens selecionado

Dim N, I As Integer
For I = 0 List.ListCount - 1
If List.Selected(I) Then
N = N + 1
End If
Next I

If N > 1 Then
MsgBox “Você deve selecionar somente uma linha!” , vbInformation, "Atenção"
For I = List.ListCount - 1 To 0 Step -1
List.Selected(I) = False
Next I
End If

Obrigado