Img = CreateObject("WIA.ImageFile") Img.LoadFile ("C:\WINDOWS\Web\Wallpaper\Bliss.bmp") s = "Width = " + TRANSFORM(Img.Width) + chr(13) + ; "Height = " + TRANSFORM(Img.Height) + chr(13) + ; "Depth = " + TRANSFORM(Img.PixelDepth) + chr(13) + ; "HorizontalResolution = " + TRANSFORM(Img.HorizontalResolution) + chr(13) + ; "VerticalResolution = " + TRANSFORM(Img.VerticalResolution) + chr(13) + ; "FrameCount = " + TRANSFORM(Img.FrameCount) + chr(13) If Img.IsIndexedPixelFormat s = s + "Pixel data contains palette indexes" + chr(13) EndIf If Img.IsAlphaPixelFormat s = s + "Pixel data has alpha information" + chr(13) EndIf If Img.IsExtendedPixelFormat s = s + "Pixel data has extended color information (16 bit/channel)" + chr(13) EndIf If Img.IsAnimated s = s + "Image is animated" + chr(13) EndIf If Img.Properties.Exists("40091") v = Img.Properties("40091").Value s = s + "Title = " + v.String + chr(13) EndIf If Img.Properties.Exists("40092") v = Img.Properties("40092").Value s = s + "Comment = " + v.String + chr(13) EndIf If Img.Properties.Exists("40093") v = Img.Properties("40093").Value s = s + "Author = " + v.String + chr(13) EndIf If Img.Properties.Exists("40094") v = Img.Properties("40094").Value s = s + "Keywords = " + v.String + chr(13) EndIf If Img.Properties.Exists("40095") v = Img.Properties("40095").Value s = s + "Subject = " + v.String + chr(13) EndIf MESSAGEBOX( s)>Hi folks,