有10个checkbox,怎么用一个循环遍历?

我form上有10个checkbox,分别是check1到check10,我想全部设置其宽带=100，怎么设?
比如:

  Dim checki As CheckBox
  i = 1
  Do While i <= 15
  checki = "Check" & i '这行语法错误
  Checki.Width = 100
  Loop

这段语法是错的,正确的是?

用checkbox数组，遍历起来就很方便了。