Extend Array?

Is this some kind of "embeddig an array in a type" you mentioned in your first posting?

Type TField
	Field image:TImage
	Field value:Short
	Field owner:Short
	Field cost:Short
End Type

Type TTileMap
	Field data:TField[,]		' 2 Dimensionales Array
	Field dim_x:Int
	Field dim_y:Int

	Method Create(xdim%,ydim%)
		data = New TField[xdim+1,ydim+1]
		For Local y% = 0 To xdim
			For Local x% = 0 To ydim
				data[x%,y%] = New TField
			Next
		Next
		dim_x=xdim%
		dim_y=ydim%
	End Method
	
	Method Draw(x_start:Int, y_start:Int, x_tiles:Short, y_tiles:Short)
		For Local y%=y_start To y_start+y_tiles
			For Local x%=x_start To x_start+x_tiles
				If data[x%,y%].image <> Null
					DrawImage(data[x%,y%].image, x%*64, y%*64,0)
				EndIf
			Next
		Next
	End Method

End Type