Procedure DummyThread(arg)
  Define.d dummy=#PI*Pow(arg,2)/4
EndProcedure

start=ElapsedMilliseconds()
Repeat
  T=CreateThread(@DummyThread(),Random(100))
  WaitThread(T)
  cnt+1
Until start+10000<=ElapsedMilliseconds(); Count for 10 sec

msg$="We got "+Str(cnt)+" st."+Chr(10)+StrF(cnt/10,2)+" threads per sec."
MessageRequester("Counting threads in 10 sec",msg$)