+1 very nice Frank. I particularly like this function
Code:Function ColumnVariantToObject Variant llColumn Returns Handle Handle hoCol Handle[] hColumns Integer iColumn Get phoColumnObjects to hColumns Get phoReportColumn to hoCol Set pvComObject of hoCol to llColumn Get ComItemIndex of hoCol to iColumn Send ReleaseComObject of hoCol Function_Return hColumns[iColumn] End_Function