Estructuras dentro de Estructuras (Visual Basic 2013)

[Tazmania40]

Buenas estoy intentando simplificar este código, en concreto lo que aparece entre comentarios. El código me funciona pero deseo reprentar los datos mediante una lista en una sola línea, o tupla como lo llaman... estoy probando con {} tal y como lo hago con los array o matrices, pero no doy con ello, alguna sugerencia. Gracias y salu2

Código (vbnet) [Seleccionar] Expandir


Private Structure Cord
   Public X, Y as Integer
End Structure

Private Structure Obj
   Public PosA as Cord
   Public PosR() as Cord
End Structure


Private Obj1 As Obj        ' Declaramos un Objeto de la estructura Obj
ReDim Obj1.PosR(2)       ' Definimos la matriz de la estructura a 3 valores

' -------- Esto funciona, deseo simplificar algo estilo
' Obj1 = { {10, 20}, { {5, 3}, {7, 9}, {1, 4} } }

Obj1.PosA.X = 10 : Obj1.PosA.Y = 20
Obj1.PosR(0).X = 5 : Obj1.PosR(0).Y = 3
Obj1.PosR(1).X = 7 : Obj1.PosR(1).Y = 9
Obj1.PosR(2).X = 1 : Obj1.PosR(2).Y = 4

' ----------------------------------------
' Representar esta parte mediante una línea, tupla o como se haga en
' Visual Basic 2013

Procedimiento(Obj1)      ' Pasar el procedimiento con el Objeto