Picture1.ScaleMode = vbPixels
 Picture1.AutoSize = True
 Picture1.Picture = LoadPicture("C:\Test.jpg")
 Debug.Print Picture1.ScaleWidth, Picture1.ScaleHeight

Private Declare Function GetDeviceCaps Lib "gdi32" ( _
   ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Const LOGPIXELSX =  88         '  Logical pixels/inch in X
Private Const LOGPIXELSY =  90         '  Logical pixels/inch in Y

Private Declare Function CreateIC Lib "gdi32" Alias "CreateICA" ( _
   ByVal lpDriverName As String, ByVal lpDeviceName As String, _
   ByVal lpOutput As String, lpInitData As Any) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long

Private Const HimetricPerInch =  2540 

Public Sub Test()
 Dim hicRef As Long
 Dim Pic As StdPicture
 Dim W As Long, H As Long
 Set Pic = LoadPicture("C:\Test.jpg")
 
 hicRef = CreateIC("DISPLAY", vbNullString, vbNullString, ByVal  0 &)
 W = Pic.Width * GetDeviceCaps(hicRef, LOGPIXELSX) / HimetricPerInch
 H = Pic.Height * GetDeviceCaps(hicRef, LOGPIXELSY) / HimetricPerInch
 DeleteDC hicRef
 Debug.Print W, H
End Sub