+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