我有个数组控件label1(i) 共20个,我想实现点击任意一个,该点击的label(i).foreColor=&H80000012&,其余label.foreColor=&HFF&,代码该怎么写,用select case太麻烦.

dim i as long
for i=0 to 19       '20个的话,那么就是 0-19
   if i=index then
      label1(i).forecolor=&H80000012&
   else
      label1(i).forecolor=&HFF&
   end if
next i