How to speedup SetColumnsWidth?

I want to restore old columns setup with SetColumnsWidth, but it seems very slow to me.

The following source needs 500 ms to execute!!!

Thanks for any suggestions.
Volker


DWORD dwTickCount;
CListCtrl& ListCtrl =GetListCtrl();
CHeaderCtrl* pHeader =(CHeaderCtrl*) ListCtrl.GetDlgItem(0);

ListCtrl.SetRedraw(FALSE);
pHeader->SetRedraw(FALSE);
Invalidate();

dwTickCount=GetTickCount();

ListCtrl.SetColumnWidth(0,0);
ListCtrl.SetColumnWidth(1,0);

ListCtrl.SetColumnWidth(0,200);
ListCtrl.SetColumnWidth(1,200);

TRACE("SetColumnsWidth (%4d ms)\n",GetTickCount()-dwTickCount);

ListCtrl.SetRedraw();
pHeader->SetRedraw();