Выделить одну или все опции в листбоксе на форме

[yuresku]

Добрый вечер. Есть листбокс на форме. Как выделить все опции при нажатии на чекбокс2 . Заранее благодарен.

[Aleksandr H.]

Private Sub CheckBox2_Click()
    If Me.CheckBox2.Value = True Then
        Me.CheckBox1.Value = False
        Dim i&
         
        Me.ListB_Month.ListStyle = 1
        Me.ListB_Month.MultiSelect = 1
        For i = 0 To ListB_Month.ListCount - 1
            ListB_Month.Selected(i) = True
        Next
        
    End If
End Sub

[yuresku]

О, работает) Огромное спасибо!!!