Occlusion System is working now.

Finally got it working.

It's here:
http://www.blitzbasic.com/codearcs/codearcs.php?code=1228

Regards,

Rogue Vector