How to dynamically create multiple controls?

Dim chk() As CheckBox
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim i As Integer
  For i = 0 To 5
   ReDim Preserve chk(i)
   chk(i) = New CheckBox()
   chk(i).Text = "check " & i
   chk(i).Top = chk(i).Height * i
   chk(i).Left = 0
   chk(i).Name = "chk" & i
   Me.Controls.Add(chk(i))
   AddHandler chk(i).CheckStateChanged, AddressOf chk_CheckedChanged
  Next
 End Sub
 Private Sub chk_CheckedChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs)
  MsgBox("checkbox " & sender.name & "'s state changed to " & sender.Checked)
 End Sub