Centrar una Ventana - GetEnvironment

Getenvironment, permite en tiempo de ejecución obtener valores del sistema operativo (tales como el Alto y Ancho del monitor, etc),

Como ejemplo se muestra una funcion para centrar una ventana (útil si es de tipo response).

Long ll_screenWidth,ll_screenHeight
environment lenv_display

if GetEnvironment(lenv_display) = 1 then
ll_screenWidth = PixelsToUnits(lenv_display.screenwidth,XPixelsToUnits!)
ll_screenHeight = PixelsToUnits(lenv_display.screenheight,YPixelsToUnits!)
this.x = (ll_screenWidth - this.width) / 2
this.y = (ll_screenHeight - this.height) / 2
end if