//Requires jQuery
function vba_toggle_collapse(id)
{
    var img_id = "#collapseimg_"+id;
    var obj_id = "#collapseobj_"+id;
    
    var collapsed = function() {
        var disp = jQuery(obj_id).css("display"); 
        
        if(disp == "none")
            return true;
        
        else
            return false;
    };
    
    jQuery(obj_id).slideToggle(1000, function() {
        if(!collapsed())
        {
            jQuery(img_id).attr("src", function() {
                return this.src.replace("_collapsed.gif", ".gif");
            });
            
            jQuery(obj_id).css("display", "");
            
            save_collapsed(id, false);                       
        }
        else
        {
            jQuery(img_id).attr("src", function() {
                return this.src.replace(".gif", "_collapsed.gif");
            });
            
            save_collapsed(id, true); 
        }
    });
    
    return false; 
}