Winodws/CPU負荷 わざと負荷をかける

Dim goal 
Dim before
Dim x 
Dim y 
Dim i 

goal = 1000000 

Do While True 
before = Timer 
For i = 0 to goal 
x = 0.000001 
y = sin(x) 
y = y + 0.00001 
Next 

y = y + 0.01 

Loop