Select Case

Juan
25 de Junio del 2004
Quisiera saber si hay alguna forma de reducir este codigo :
Select Case Index
Case 1
Portada(1).Enabled = False
Case 2
Portada(2).Enabled = False
Case 3
Portada(3).Enabled = False
...................
...................
...................
Case 99
Portada(99).Enabled = False
Case 100
Portada(100).Enabled = False
End Select

¿Debo copiar uno por uno?
Ojala me puedas ayudar. Gracias

gabriel
25 de Junio del 2004
creo que esto te puede servir, si entendí bién lo que queres hacer.

for i = 1 to 100
if Index = i then
Portada(i).Enabled = False
endif
next