Hi
  Error - Object does not support this property or method on this line
 lOldWidth = img.ScaleWidth \ Screen.TwipsPerPixelX
Dim img As StdPicture
    Set img = LoadPicture("c:\image.jpg")    
Dim lSourceX As Long, lSourceY As Long
    Dim lOldWidth As Long, lOldHeight As Long
    Dim lNewWidth As Long, lNewHeight As Long
    lOldWidth = img.ScaleWidth \ Screen.TwipsPerPixelX
Thanks