sub main
do while true
wait 5000
ThisComponent.calculateAll
loop
end sub