Heres where I got it from, there are more parts in VB to this (quite a lot of stuff).

https://www.mpgh.net/forum/17-game-ha...heats-1-a.html