procedure THIUseWinAnimation._work_doAnimation;
var
  sControl: PControl;
  dwFlags: DWord;
begin
  if not Assigned(_prop_ControlManager) then exit;
  sControl := _prop_ControlManager.ctrlpoint;
  case _prop_ActivationMode of
    0: dwFlags := AW_ACTIVATE;
    1: dwFlags := AW_HIDE;
  end;
  if _prop_CENTER then dwFlags := AW_CENTER or dwFlags;  
  if _prop_SLIDE then dwFlags := AW_SLIDE or dwFlags;
  if _prop_HOR_POSITIVE then dwFlags := AW_HOR_POSITIVE or dwFlags;
  if _prop_HOR_NEGATIVE then dwFlags := AW_HOR_NEGATIVE or dwFlags;             
  if _prop_VER_POSITIVE then dwFlags := AW_VER_POSITIVE or dwFlags;
  if _prop_VER_NEGATIVE then dwFlags := AW_VER_NEGATIVE or dwFlags;             
  AnimateWindow(sControl.Handle, _prop_Time, dwFlags);
//  RedrawWindow(sControl.Handle, nil, 0, RDW_ERASE or RDW_INVALIDATE or RDW_FRAME or RDW_ALLCHILDREN);  
end;