Sorry, my bad
They are icon_000.gif, icon_002.gif ... icon_100.gif
And I want to avoid
Dim icon000, icon001, ... icon100 as bitmap
icon_000.Initialize(File.DirAssets,"icon_000.gif")
icon_000.Initialize(File.DirAssets,"icon_001.gif")
...
icon_000.Initialize(File.DirAssets,"icon_100.gif")
Select x
case x = 0
imgIcon.bitmap = icon_000
case x = 1
imgIcon.bitmap = icon_001
...
case x = 100
imgIcon.bitmap = icon_100
end select