Power Builder - mostrar en un formulario las horas en diferentes p

2_Diseñar un formulario que permita tener una lista de países y mostrar las horas en diferentes países del Mundo con respecto al Perú.
España – 8 horas
Japón – 14 horas
Argentina – 2 horas
Chile –14 horas
USA – 0 horas
México – 1 hora menos
India – 10 horas

Los formularios, se llaman ventanas en PB. Si es así, en una ventana pegá tres controles:

* st_1 (mostrará la hora del sistema, es decir del peru, que se actualizará cada segundo).
* ddplb_1 (para elegir el país. Por defecto, mostrará a perú)
* st_2 (mostrará la hora del país elegido en el ddplb_1. Una vez que muestre la hora, ésta seguirá corriendo).

1. En el ddplb_1. Llenas los items en tiempo de diseño. Por ejemplo:
argentina
bolivia
brasil
peru

2. Script en el evento Open de la ventana:
//Muestra la hora local o del peru
st_1.text=string(Now(),"hh:mm:ss")

//El ddplb_1, muestra el 4to item (que corresponde a peru)
ddplb_1.SelectItem(4)

//Al principio, muestra la hora de ese pais (peru)
st_2.text=string(Now(),"hh:mm:ss")

//Se actualiza cada segundo
Timer(1)

//(CONTINUÁ...)

//(CONTINUACIÓN...)
3. Script en el evento Timer de la ventana.
time lt_hora
string ls_pais
Constant int li_hora=3600

st_1.Text=string(Now(),"hh:mm:ss")

//Cogemos la hora que muestra el reloj st_1.
lt_hora=time(st_1.Text)
//Cogemos el item que muestra el ddplb_1
ls_pais=string(ddplb_1.text)

choose case ls_pais
//Argentina (+1 hora)
Case "argentina"
st_2.text=string(RelativeTime(lt_hora,1*li_hora))
//Bolivia (+2 horas)
Case "bolivia"
st_2.text=string(RelativeTime(lt_hora,2*li_hora))
//Brasil (- 1 hora)
Case "brasil"
st_2.text=string(RelativeTime(lt_hora,- 1*li_hora))
Case else//Peru
st_2.text=string(lt_hora)
End choose

Nota: La diferencia entre países son hipotéticas.