Please ammend this checklist code

[Mina]

Hi,

in the following code I want to let ALL the items of checkedlist1 been checked

Dim i As Integer

i = Me.CheckedListBox1.Items.Count()

For i = 0 To i - 1
Me.CheckedListBox1.GetItemChecked(i) = True
Next

but it gives me error
Please ammend this code to make ALL the items of checkedlist1 been checked

thanx

[pax]

Hi Mina.

This should work.

Dim I As Integer
 
For I = 0 To CheckedListBox1.Items.Count - 1
    CheckedListBox1.SetItemChecked(I, True)
Next