Italian Array di file

    Colore_Arancione.Initialize(File.DirAssets,"Arancione.png")
    Colore_Azzurro.Initialize(File.DirAssets,"Azzurro.png")
    Colore_Bianco.Initialize(File.DirAssets,"Bianco.png")
    Colore_Blu.Initialize(File.DirAssets,"Blu.png")
    Colore_Giallo.Initialize(File.DirAssets,"Giallo.png")
    Colore_Grigio.Initialize(File.DirAssets,"Grigio.png")
    Colore_Marrone.Initialize(File.DirAssets,"Marrone.png")
    Colore_Nero.Initialize(File.DirAssets,"Nero.png")
    Colore_Rosa.Initialize(File.DirAssets,"Rosa.png")
    Colore_Rosso.Initialize(File.DirAssets,"Rosso.png")
    Colore_Verde.Initialize(File.DirAssets,"Verde.png")
    Colore_Viola.Initialize(File.DirAssets,"Viola.png")

Dim Colore(1 to 12) As String
Dim Carica_Colore (1 to 12) as string
Colore = Array As String("Arancione", "Azzurro", "Bianco", ...)
for a = 1 to 12
  Carica_Colore(a).initialize(file.DirAssets,Colore(a) & ".jpg")
next

Dim mapColori As Map : mapColori.Initialize
Dim lstColori As List
lstColori.Initialize2(Array As String("Arancione", "Azzurro", "Bianco"))

For i = 0 To lstColori.Size -1
    Dim bmp As Bitmap
    bmp.Initialize(File.DirAssets, lstColori.Get(i) & ".png")
    mapColori.Put(lstColori.Get(i), bmp)
Next