Px72 = GetDeviceCaps(GetDC(0), 88) ' Nombre de pixels pour 72 points.
Lft = Obj.Left: Trnq = Int(Lft / 3) * 3
Lft = Pan.PointsToScreenPixelsX(Trnq) * 72 / Px72 + (Lft - Trnq)
Px72 = GetDeviceCaps(GetDC(0), 90) ' Nombre de pixels pour 72 points.
Top = Obj.Top: Trnq = Int(Top / 3) * 3
Top = Pan.PointsToScreenPixelsY(Trnq) * 72 / Px72 + (Top - Trnq)