[Kon-Tiki]

Tilesets code's done too, and works like a charm. Friend of mine's sprucing up my sheep tileset and am making another couple of sets.

' **************
' ** Tilesets **
' **************
Private Sub Default_Click()
 *TileFolder = "tileset\default"
 *Call TileChange
End Sub
Private Sub Sheep_Click()
 *TileFolder = "tileset\sheep"
 *Call TileChange
End Sub

Sub TileChange()
For Row = 0 To 5
 *For Column = 0 To 6
 * *Position = Row * 7 + Column
 * *Select Case Veld(Position).Tag
 * * *Case 0
 * * * *Veld(Position).Picture = LoadPicture("" & TileFolder & "\veld.jpg")
 * * *Case 1
 * * * *Veld(Position).Picture = LoadPicture("" & TileFolder & "\veld1.jpg")
 * * *Case 2
 * * * *Veld(Position).Picture = LoadPicture("" & TileFolder & "\veld2.jpg")
 * *End Select
 *Next Column
Next Row
Disc1.Picture = LoadPicture("" & TileFolder & "\veld1.jpg")
Disc2.Picture = LoadPicture("" & TileFolder & "\veld2.jpg")
End Sub

When the form is loading, default tileset if default.