Programación VB Cómo obtener el valor DPI (resolución) de un archivo de imagen
'CommandBotton one Control de imagen
'Establece la propiedad AutoSize de la imagen1 en True
'Usa Imagen para cargar la imagen que necesitas
'Entonces
Private Sub Command1_Click()
i = MsgBox("La resolución de la imagen es:" Str(Picture1.ScaleWidth / 15) "X" Str( Picture1. Altura de escala / 15))
End Sub