有10个checkbox,如何用一个循环遍历

有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

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

[解决办法]

VB code

Do While i <= 15    me("Check" & i).Width = 100  Loop