Weite + Breite von Bildern in VB

[nbauer]

Ich möchte von Bilddateien (.jpg) die Weite und Breite in Pixel auslesen:

ScrX = Screen.TwipsPerPixelX
ScrY = Screen.TwipsPerPixelY

Twips per Pixel ergibt jeweils 15

Set b = LoadPicture("Test.jpg", vbLPLargeShell)
h = b.Height / 15
w = b.Width / 15

Die erhaltenen Werte entsprechen nicht den Pixel, sondern es kommen periodische Dezimalwerte heraus:

1. Bild 600 x 900 Pixel: 1058,3333 x 1587,3333
2. Bild 208 x 368 Pixel: 366,8666 x 649,3333

Dies ergibt einen Faktor von aufgerundet 1,764, jedoch pro Bild und Seitenangabe differieren diese Werte. Ich habe diverse Bildschirmauflösungen probiert, dies hat keinen Einfluss auf die Werte.

Wer weiss weiter?

Ciao
nbauer