procedure THIMainForm._work_doVisible;
//var i:integer;
begin
  _prop_Visible := ReadBool(Data);
  if not _prop_Visible then begin
    Control.Hide;
    if CurForm <> nil then
      PostMessage(CurForm.Handle,WM_ACTIVATE,WA_ACTIVE,0 );
    CurForm := nil;
  end else begin
    CurForm := Applet.ActiveControl;
    Control.Show;
//    for i := 0 to Control.ChildCount-1 do
//      Control.Children[i].Perform(WM_SIZE,0,0);
    end
end;