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