Dim Spielfeld() as long
Redim Spielfeld( 15 , 15, 200 ) as Byte

Dim FeldBild as Byte
FeldBild = Spielfeld( x, y, z)

Select case FeldBild
    case 1
        Imagebox(x,y,z).Picture="bild1.bmp"
    case 2
        Imagebox(x,y,z).Picture="bild2.bmp"
    case 3
        Imagebox(x,y,z).Picture="bild3.bmp"
'usw
End Select

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)