A few questions, Would this edit work as i wanted it to? Would i need to add any additonal data to the frmmapeditor or frmhouseeditor, if so can you give a pointer? Any addtional data i should know i need to place?

Function GetTileX(ByVal mapper As Long, ByVal x As Long, ByVal y As Long, ByVal layer As Long)
Select Case layer
Case 0
    GetTileX = map(mapper).Tile(x, y).Ground - Int(map(mapper).Tile(x, y).Ground / 14) * 14
Case 1
    GetTileX = map(mapper).Tile(x, y).Mask - Int(map(mapper).Tile(x, y).Mask / 14) * 14
Case 2
    GetTileX = map(mapper).Tile(x, y).Anim - Int(map(mapper).Tile(x, y).Anim / 14) * 14
Case 3
    GetTileX = map(mapper).Tile(x, y).Anim2 - Int(map(mapper).Tile(x, y).Anim2 / 14) * 14
Case 4
    GetTileX = map(mapper).Tile(x, y).Mask2 - Int(map(mapper).Tile(x, y).Mask2 / 14) * 14
Case 5
    GetTileX = map(mapper).Tile(x, y).M2Anim - Int(map(mapper).Tile(x, y).M2Anim / 14) * 14
Case 6
    GetTileX = map(mapper).Tile(x, y).M2Anim2 - Int(map(mapper).Tile(x, y).M2Anim2 / 14) * 14
Case 7
    GetTileX = map(mapper).Tile(x, y).Fringe - Int(map(mapper).Tile(x, y).Fringe / 14) * 14
Case 8
    GetTileX = map(mapper).Tile(x, y).FAnim - Int(map(mapper).Tile(x, y).FAnim / 14) * 14
Case 9
    GetTileX = map(mapper).Tile(x, y).FAnim2 - Int(map(mapper).Tile(x, y).FAnim2 / 14) * 14
Case 10
    GetTileX = map(mapper).Tile(x, y).Fringe2 - Int(map(mapper).Tile(x, y).Fringe2 / 14) * 14
Case 11
    GetTileX = map(mapper).Tile(x, y).F2Anim - Int(map(mapper).Tile(x, y).F2Anim / 14) * 14
Case 12
    GetTileX = map(mapper).Tile(x, y).F2Anim2 - Int(map(mapper).Tile(x, y).F2Anim2 / 14) * 14
End Select
End Function
Function GetTileY(ByVal mapper As Long, ByVal x As Long, ByVal y As Long, ByVal layer As Long)
Select Case layer
Case 0
    GetTileY = Int(map(mapper).Tile(x, y).Ground / 14)
Case 1
    GetTileY = Int(map(mapper).Tile(x, y).Mask / 14)
Case 2
    GetTileY = Int(map(mapper).Tile(x, y).Anim / 14)
Case 3
    GetTileY = Int(map(mapper).Tile(x, y).Anim2 / 14)
Case 4
    GetTileY = Int(map(mapper).Tile(x, y).Mask2 / 14)
Case 5
    GetTileY = Int(map(mapper).Tile(x, y).M2Anim / 14)
Case 6
    GetTileY = Int(map(mapper).Tile(x, y).M2Anim2 / 14)
Case 7
    GetTileY = Int(map(mapper).Tile(x, y).Fringe / 14)
Case 8
    GetTileY = Int(map(mapper).Tile(x, y).FAnim / 14)
Case 9
    GetTileY = Int(map(mapper).Tile(x, y).FAnim2 / 14)
Case 10
    GetTileY = Int(map(mapper).Tile(x, y).Fringe2 / 14)
Case 11
    GetTileY = Int(map(mapper).Tile(x, y).F2Anim / 14)
Case 12
    GetTileY = Int(map(mapper).Tile(x, y).F2Anim2 / 14)
End Select
End Function
Function GetTileSet(ByVal mapper As Long, ByVal x As Long, ByVal y As Long, ByVal layer As Long)
Select Case layer
Case 0
    GetTileSet = map(mapper).Tile(x, y).GroundSet
Case 1
    GetTileSet = map(mapper).Tile(x, y).MaskSet
Case 2
    GetTileSet = map(mapper).Tile(x, y).AnimSet
Case 3
    GetTileSet = map(mapper).Tile(x, y).Anim2Set
Case 4
    GetTileSet = map(mapper).Tile(x, y).Mask2Set
Case 5
    GetTileSet = map(mapper).Tile(x, y).M2AnimSet
Case 6
    GetTileSet = map(mapper).Tile(x, y).M2Anim2Set
Case 7
    GetTileSet = map(mapper).Tile(x, y).FringeSet
Case 8
    GetTileSet = map(mapper).Tile(x, y).FAnimSet
Case 8
    GetTileSet = map(mapper).Tile(x, y).FAnim2Set
Case 10
    GetTileSet = map(mapper).Tile(x, y).Fringe2Set
Case 11
    GetTileSet = map(mapper).Tile(x, y).F2AnimSet
Case 12
    GetTileSet = map(mapper).Tile(x, y).F2Anim2Set
End Select
End Function