Ola pessoal! como vão?

Minha dúvida é:

Em um ListBox com o MultiSelect configurado para aceitar várias seleções, como posso pegar os itens selecionados e os não selecionados?

Por Exemplo:

Private Sub CarregaDias()
'Carrega o List

lstSemana.Clear
lstSemana.additem "Segunda"
lstSemana.additem "Terça"
lstSemana.additem "Quarta"
lstSemana.additem "Quinta"
lstSemana.additem "Sexta"
lstSemana.additem "Sábado"
lstSemana.additem "Domingo"
End Sub

O projeto será usado na cozinha da empresa em que trabalho, no controle do vencimento dos congelados.

Tentei usar 7 texts cofigurados com o número "0" que, associados a lstSemana_Click(), quando um item da List era selecionado (com um clique), ativava uma rotina que verificava o conteúdo do Text, se era 0 passava para 1 e vice-versa. Não deu muito certo, pois, quando eu usava as setas derecionais do teclado, a troca dos números nos Texts ficava completamente instável e imprevisível.

Bem, espero que a minha dúvida ajude a elucidar dúvidas de outras pessoas.

Agradeço antecipadamente.

Um abraço do Smir9.

 

 

Oi Smir9

Veja se é isto o que voce quer a propriedade .Selected() se for true é porque foi selecionado se for false é porque não foi e o index é

0 - Segunda

1 - Terça

2 - Quarta

3 - Quinta

4 - Sexta

5 - Sabado

6 - Domingo

 

 

 

 

Private Sub Command1_Click()
    Dim i As Integer
    ListResultado.Clear
    For i = 0 To (lstSemana.ListCount - 1)
        If lstSemana.Selected(i) = true Then
            ListResultado.AddItem lstSemana.List(i)
        End If
    Next
End Sub