'Example of How to Obtain the current document in Maxim and Mess around with it.  I.e.
'write into the fits header and obtain the image array

Dim Max_Doc
Dim App
Dim Suc1
Dim crota1,crota2

cdelt1=CDbl(-.00021975)
cdelt2=CDbl(-.00021975)
Set App=GetObject("","Maxim.Application")

Set Max_Doc=App.CurrentDocument

V=Max_Doc.ImageArray

Suc1=Max_Doc.SetFITSKEY("CDELT1",cdelt1)
Suc2=Max_Doc.SetFITSKEY("CDELT2",cdelt2)