Dim Pic As StdPicture
Dim Pfad$, Breite&, Höhe&
 
Pfad = "C:\EinBild.jpg"
Set Pic = LoadPicture(Pfad)
Breite = Int(0.5 + Me.ScaleX(Pic.Width, vbHimetric, vbPixels))
Höhe = Int(0.5 + Me.ScaleY(Pic.Height, vbHimetric, vbPixels))

Gruss,

Zardoz