seleccionar items listbox con style checkbox

[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.