¿Cómo hacer una barra de progreso circular en Easy Language?

El código específico es el siguiente: Primero cree un reloj con un período de reloj de 0. No puede usar bucles, de lo contrario se atascará.

Versión 2

Subrutina_Reloj 1_Evento periódico

Barra de progreso 1. posición = barra de progreso1. Ubicación +1.

Si es verdadero(progressbar1.position=progressbar1.maxposition)

reloj1. período de reloj = 0.

Si realmente se acabó.

. Se hizo clic en subrutina_button1_.

Si es verdadero (barra de progreso 1. posición ≠ barra de progreso 1. posición máxima)

Reloj 1. período de reloj = 1000.

Si realmente se acabó.