Visual Basic para Aplicaciones - select case

tengo varios objetos que en tiempo de ejecucion los cambio de lugar. pero cuando el ultimo cambia de lugar tiene que entrar en posision otro grupo de objetos y cuando el ultimo de este grupo cambie de lugar entra otro grupo mas y asi hasta 50 grupos he ocupado el select case pero cuando termina el primer grupo no pasa nada, es decir el segundo grupo no entra porque? que estoy haciendo mal?
saludos a todos.

Sin ver el código me es imposible...
Saludos desde Baires, JuanC

son un grupo de 25 fichas que cuando inicia la aplicacion no se ven ya que ocupo el .visible

= false para todas; en el primer nivel aparecen todas y las voy acomodando en el lugar que

les correspode segun su color:

dim i as integer
dim variable as integer


private sub Form_Load()

for i = 0 to 25
picture(i).visible = false
picture(i).top = 10000
for each picture(i) = picture(i).left + 120
next
next
end sub


function nivel()

select case variable

case 0

private sub picture(0)_click()

picture1.top = 240
picture1.left = 120
end sub

private sub picture(1)_click()

picture2.top = 360
picture1.left = 120
end sub

'para cada picture(0 al 25) le asigno un valor a top y un valor a left.'

case 1

'comenzamos de nuevo con distintos valores y no con todos los pictures solo con 20'

private sub picture(0)_click()

picture1.top = 240
picture1.left = 120
end sub

private sub picture(2)_click()

picture1.top = 360
picture1.left = 240
end sub

private sub picture(4)_click()

picture1.top = 480
picture1.left = 360
end sub

'para cada picture(0 al 20) le asigno un valor a top y un valor a left.'

case 2

'comenzamos de nuevo con distintos valores y no con todos los pictures solo con 15'

private sub picture(1)_click()

picture1.top = 240
picture1.left = 120
end sub

private sub picture(3)_click()

picture1.top = 600
picture1.left = 240
end sub

private sub picture(5)_click()

picture1.top = 8400
picture1.left = 360
end sub

'para cada picture(1 al 15) le asigno un valor a top y un valor a left.'

'ahora bien, continuamos con el que sigue'

case3
case4......'hasta el'
case 50

'todos llevaran pictures con diferentes indices, picture(5), picture(8), picture(12), etc.
y empieza el problema de como hacer que cuando termine con el case0 empieze el case1 y asi consecutivamente y los picture que no se ocupan ocupen la propiedad .visible = false. no se si con este codigo sea suficiente por que es muy largo.

la idea es que el niño forme un especie de rompecabezas muy sencillo al hacer click en un picture que estaran al pie del form al iniciar cada nivel.

desde ahora muchas gracias por la ayuda que me brinden(globalizo)
y saludos desde mèxico.

La verdad que es un desastre!
No llego a entender muy bien qué pretendés hacer...

Private Sub Form_Load()
For i = 0 To 25
picture(i).Visible = False
picture(i).Top = 10000 'Para qué si no se ve??!!

'Lo que sigue está mal
'No sé qué querés hacer
'Si fuera agregarle 120 a la propiedad Left de cada Picture
'sería: picture(i).Left = picture(i).Left + 120
'El for each está mal y además creo que no hace falta...
for each picture(i) = picture(i).Left + 120
Next
Next
End Sub

Según lo poco que interpreto el código sería algo así:

Sub nivel()
Select Case variable
Case 0
picture(0)_click()
picture1.Top = 240
picture1.Left = 120
picture(1)_click()
picture2.Top = 360
picture1.Left = 120 'No debería ser picture2?

Case 1
picture(0)_click()
picture1.Top = 240
picture1.Left = 120
picture(2)_click()
picture1.Top = 360
picture1.Left = 240
picture(4)_click()
picture1.Top = 480
picture1.Left = 360
Case 2
'...
Case 50
End Select
End Sub

Cualquier consulta acá estaré de nuevo...

Saludos desde Baires, JuanC