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")