FONCTION DE CONVERSION D'UNITÉS (TWIPS, PIXELS, CENTIMÈTRES, POUCES, ...)

Public Function ConvertScale(ByVal Unit As Single, ByVal FromScale As ScaleModeConstants, ByVal ToScale As ScaleModeConstants) As Single

    Dim TmpPrinter As Printer
    '
    ' ... instancie l'objet temporaire TmpPrinter à partir de l'objet Printer ...
    ' (seul les objets de types Printer, PictureBox ou Form supportent la méthode ScaleX)
    '
    Set TmpPrinter = Printer
    '
    ' ... définit les propriétés de l'objet ...
    '
    TmpPrinter.ScaleMode = FromScale
    TmpPrinter.Width = Unit
    '
    ' ... convertit et renvoie la valeur ...
    '
    ConvertScale = TmpPrinter.ScaleX(Unit, FromScale, ToScale)
    '
    ' ... détruit l'objet temporaire ...
    '
    Set TmpPrinter = Nothing

End Function