Enrique: Las imágenes son objetos IPicture (Picture) que entre sus propiedades tienen el alto y ancho de la imagen original (no la que muestra el control, acordate que un controlpuede redimensionar la imagen). El problema reside en eque vos querés las dimensiones en pixels, mientras que el objeto picture las devuelve en HiMetrics. Por ello debemos convertir los tamaños correspondientes con ScaleX y ScaleY
Ejemplo: Si tenemos una imagen en un pictureBox llamado Picture1 el código sería:
Dim picWidth As Single, picHeight As Single
With Picture1
picWidth = .ScaleX(.Picture.Width, vbHimetric, vbPixels)
picHeight = .ScaleY(.Picture.Height, vbHimetric, vbPixels)
end with
picWidth y picHeight reciben el ancho y alto de la imagen, respectivamente, en pixels.
Espero que te sirva
Saludos Ruri
