bool SetTransparent(HWND hWnd,COLORREF crKey,Byte  bAlpha,DWORD dwFlags)
{
  HINSTANCE  m_hUserDll=LoadLibrary("user32.dll");
  BOOL bRet = TRUE;
  typedef BOOL (WINAPI* lpfnSetTransparent)(HWND hWnd, COLORREF crKey, BYTE bAlpha, DWORD dwFlags);      // Check that "USER32.dll" library has been
  // loaded successfully...      if ( m_hUserDll )
  {
    lpfnSetTransparent pFnSetTransparent = NULL;
    pFnSetTransparent = (lpfnSetTransparent)GetProcAddress(m_hUserDll,"SetLayeredWindowAttributes");        if (pFnSetTransparent )
       bRet = pFnSetTransparent(hWnd, crKey, bAlpha, dwFlags);
    else
       bRet = FALSE;
  } // if( m_hUserDll )       //LoadLibrary("user32.dll");
   return bRet;
} // End of SetTransparent function
//---------------------------------------------------------------------------
__fastcall Tlogo::Tlogo(TComponent* Owner)
        : TForm(Owner)
{
  SetWindowLong(logo->Handle,GWL_EXSTYLE,GetWindowLong(logo->Handle, GWL_EXSTYLE) | WS_EX_LAYERED);
  SetTransparent(logo->Handle, 0, 0, LWA_ALPHA);
}
//---------------------------------------------------------------------------
void __fastcall Tlogo::FormActivate(TObject *Sender)
{
  Application->ProcessMessages();
  for(int nPercent=0; nPercent<=255 ;nPercent  )
    SetTransparent( logo->Handle, 0, 255 * nPercent/255, LWA_ALPHA);
}
//---------------------------------------------------------------------------
void __fastcall Tlogo::FormClose(TObject *Sender, TCloseAction &Action)
{
  for(int nPercent=255; nPercent >= 0 ;nPercent--)
    SetTransparent( logo->Handle, 0, 255 * nPercent/255, LWA_ALPHA);
}