Tiles and collision

Henrik, thanks for the example, i still varies from my code alot though. here is my coding so far:
AppTitle "Mega Bomberman Clone v0.0 - Test 1","Do you wish to return to your desktop?"
Graphics 640,510,32,2
SetBuffer BackBuffer()

Global Tiles
Dim Map(16,16)
Load_Map()

While Not KeyHit(1)

Cls
Update()
Flip
Wend
End

Function Load_Map()
Restore Map
For y=000 To 16
For x=000 To 16
Read Map(x,y)
Next
Next
tiles =LoadAnimImage("TileMap.png",29,29,0,13)
End Function

Function Update()
For y= 000 To 16
For x= 000 To 16
DrawImage tiles,x*30,y*30,map(x,y)
Next
Next
End Function

.map
Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
Data 4,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,4
Data 4,12,0,12,0,12,0,12,0,12,0,12,0,12,0,12,4
Data 4,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,4
Data 4,12,0,12,0,12,0,12,0,12,0,12,0,12,0,12,4
Data 4,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,4
Data 4,12,0,12,0,12,0,12,0,12,0,12,0,12,0,12,4
Data 4,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,4
Data 4,12,0,12,0,12,0,12,0,12,0,12,0,12,0,12,4
Data 4,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,4
Data 4,12,0,12,0,12,0,12,0,12,0,12,0,12,0,12,4
Data 4,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,4
Data 4,12,0,12,0,12,0,12,0,12,0,12,0,12,0,12,4
Data 4,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,4
Data 4,12,0,12,0,12,0,12,0,12,0,12,0,12,0,12,4
Data 4,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,4
Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4

Dunno how collision fits into this sort of thing.
hope somebody can help.