Dim p As IPictureDisp Set p = LoadPicture("D:\My Documents\chris2.gif") SavePicture p, "d:\my documents\newchris.bmp"