'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 cdelt2

cdelt2=CDbl(10)

Set App=GetObject("","Maxim.Application")

Set Max_Doc=App.CurrentDocument

V=Max_Doc.ImageArray

Suc1=Max_Doc.SetFITSKEY("strCDELT2",cdelt2)