Conversion de twips en pixels et f-1:

lngDeviceHandle est un entier=0
lngDeviceHandle=API("USER32","GetDC",0)
SI lngDeviceHandle=0 ALORS
Erreur(ErreurInfo())
RETOUR
FIN

lngDirection est une chaîne="H"
lngPixelsPerInch est un entier=0
SI lngDirection = "H" ALORS
lngPixelsPerInch =API("GDI32","GetDeviceCaps",lngDeviceHandle,88)
SINON
lngPixelsPerInch =API("GDI32","GetDeviceCaps",lngDeviceHandle,90)
FIN
SI API("USER32","ReleaseDC",0,lngDeviceHandle)=0 ALORS
Erreur(ErreurInfo())
RETOUR
FIN

lngTwips est un entier=15360
lngPixels est un entier=1024
fTwipsToPixels est un entier=0
fPixelsToTwips est un entier=0

WhatToDo est un entier=1
SELON WhatToDo
CAS 0:
fTwipsToPixels=lngTwips / 1440 * lngPixelsPerInch
Info("TwipsToPixels="+fTwipsToPixels)
CAS 1:
fPixelsToTwips = lngPixels * 1440 / lngPixelsPerInch
Info("PixelsToTwips="+fPixelsToTwips)
FIN