Option Explicit Dim App 'The Application Object Dim Doc Dim Cam Dim Open_Image 'The image currently in front in Maxim Set App=CreateObject("Maxim.Application") Set Doc=CreateObject("Maxim.Document") Set Cam=CreateObject("Maxim.CCDCamera") Set Open_Image=App.CurrentDocument Doc.SaveFile "C:\my_script.fit",3,True,0,1 MsgBox("Hello")