error when get the checked value of checked listbox array
"Object reference not set to an instance of an object."
what is the problem in my code
Public Class Form1
Dim c1b1 As CheckedListBox()
Private Sub btnAddItems_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim l As Integer = 5
For i As Integer = 1 To 4
ReDim Preserve c1b1(i)
c1b1 = New CheckedListBox(i) {}
c1b1(i) = New CheckedListBox
c1b1(i).Size = New Size(75, 30)
addii(c1b1(i))
c1b1(i).Location = New Point(5, (l + 25) * i)
Me.Controls.Add(c1b1(i))
Next
End Sub
Private Sub btnGetCheckedItems_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim o As Object
For i As Integer = 1 To 4
For Each o In c1b1(i).CheckedItems
MsgBox(o.ToString & " in c" & i.ToString)
Next o
Next
End Sub
Sub addii(ByVal h As CheckedListBox)
h.Items.Add("1")
h.Items.Add("2")
h.Items.Add("3")
h.Items.Add("4")
End Sub
End Class
please help