seleccionar items listbox con style checkbox

[A.H.H]

Hola mi duda es como se hace para que queden seleccionados todos los items de un listbox con style checkbox al pulsar un boton??
Para los checkbox del formulario tengo este codigo pero alguien sabe para los checkbox del listbox??
codigo

Private Sub Command1_Click()
Dim xCheckBox As Control
' Recorrer en un bucle todos los controles del form
For Each xCheckBox In Me.Controls
' Comprobar con el operador TypeOf si es un control CheckBox
If TypeOf xCheckBox Is CheckBox Then
' Cambiar la propiedad Value
xCheckBox.Value = 1
End If

Next
End Sub

con este codigo quedarian todos los controles checkbox seleccionados.¿y para los controles checkbox que estan dentro del listbox?

salu2

[Avellaneda]

Hola, tienes que seleccionar cada item del control:

Código vb:

Private Sub Command1_Click()
Dim xListBox As Control, i As Integer
For Each xListBox In Me.Controls
    If TypeOf xListBox Is ListBox Then
        For i = 0 To xListBox.ListCount - 1
            xListBox.Selected(i) = True
        Next i
    End If
Next
End Sub
 

Con ese código quedarían seleccionados todos los items de todos los controles ListBox que tenga el formulario.

[A.H.H]

MUCHAS GRACIAS AVELLANEDA

FUNCIONA PERFECTAMENTE!!