[Resolvido]Botão de selecionar todos numa ListBox

Boa noite! Gostaria de ter um botão que ao clicar nele, selecione e marque todos os itens de uma listbox, com faço isso?

mude a propriedade da listbox para extendida e adicione este comando ao um botão no seu formulario:


Public Sub SelectAll(sLista As String, Optional bSelect As Boolean = True)
 Dim I As Integer
 Dim iLista As Integer
 iLista = Controls(sLista).ListCount - 1
 For I = 0 To iLista
   Controls(sLista).Selected(I) = bSelect
 Next I
End Sub

No evento "Ao clicar" do botão você chama pela função
Call SelectAll("nome da sua listbox")

Obrigado, deu certo! Grande abraço.