Private btm As Map
Private l As List
Private i As Int
Private f As String
l = File.ListFiles ( File.DirAssets )
For i = 0 To l.Size - 1
f = l.Get ( i )
If f.EndsWith ( ".png" ) Then
Dim b As Bitmap
b.Initialize( File.DirAssets , f )
btm.Put ( f.SubString2 ( 0 , f.Length - 4 ) , b )
End If
Next