con dos rutas de imagenes que luego consultare.
Select Case Dificultad
Case MuyFacil
For Each xobjeto In PanMuyFacil.Children
For Each XpicBox In xobjeto.Children
If SalidaForsosa Then Return
Tags = New String[]
Tags.Add(TagOrdenado[contador])
Tags.Add(TagDesordenado[contador])
XpicBox.Tag = Tags
' XpicBox.Tag = TagDesordenado[contador]
XpicBox.Picture = Null
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Inc contador
Next
Next
Case MuyFacil
For Each xobjeto In PanMuyFacil.Children
For Each XpicBox In xobjeto.Children
If SalidaForsosa Then Return
Tags = New String[]
Tags.Add(TagOrdenado[contador])
Tags.Add(TagDesordenado[contador])
XpicBox.Tag = Tags
' XpicBox.Tag = TagDesordenado[contador]
XpicBox.Picture = Null
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Inc contador
Next
Next
esta rutina consulta la propiedad tag, pero aqui me da error
(no es un objeto)
Dim XpicBox As PictureBox
Dim xobjeto As Object
Select Case Dificultad
Case MuyFacil
For Each xobjeto In PanMuyFacil.Children
For Each XpicBox In xobjeto.Children
Print "Picture.Load(XpicBox.Tag)" & XpicBox.Tag[1] <-------- aqui da el error
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Next
Next
Case Facil
For Each xobjeto In PanFacil.Children
For Each XpicBox In xobjeto.Children
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Next
Next
Case Normal
For Each xobjeto In PanNormal.Children
For Each XpicBox In xobjeto.Children
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Next
Next
Case Dificil
For Each xobjeto In PanDificil.Children
For Each XpicBox In xobjeto.Children
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Next
Next
End Select
Dim xobjeto As Object
Select Case Dificultad
Case MuyFacil
For Each xobjeto In PanMuyFacil.Children
For Each XpicBox In xobjeto.Children
Print "Picture.Load(XpicBox.Tag)" & XpicBox.Tag[1] <-------- aqui da el error
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Next
Next
Case Facil
For Each xobjeto In PanFacil.Children
For Each XpicBox In xobjeto.Children
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Next
Next
Case Normal
For Each xobjeto In PanNormal.Children
For Each XpicBox In xobjeto.Children
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Next
Next
Case Dificil
For Each xobjeto In PanDificil.Children
For Each XpicBox In xobjeto.Children
XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
Next
Next
End Select
que estoy haciendo mal?