这里有两个vb的例子，但我想你看懂了他们这个就没问题了！
请看此页下端的“程序员大本营”的“Visual Basic”的“VB源码集合”的“用户界面”的“在 Windows 95 中，实现渐变的标题栏的例子”和“实现渐变效果的背景”例程

1.先使用CPalette建立一个新调色板
代码参考如下
if (m_Pal.GetSafeHandle() != NULL)
return FALSE;

BOOL bSucc = FALSE;

const int nNumColors = 236;

LPLOGPALETTE lpPal = (LPLOGPALETTE)new BYTE[sizeof(LOGPALETTE) +
sizeof(PALETTEENTRY) *
nNumColors];

if (lpPal != NULL)
{
lpPal->palVersion = 0x300;
lpPal->palNumEntries = nNumColors;

PALETTEENTRY *ppe = lpPal->palPalEntry;

for (int nIndex = 0; nIndex < nNumColors; nIndex++)
{
const int nColor = ::MulDiv(nIndex, 255, nNumColors);

ppe->peRed = (BYTE)(m_nPaintRGB & GPC_RED ? nColor : 0);
ppe->peGreen = (BYTE)(m_nPaintRGB & GPC_GREEN ? nColor : 0);
ppe->peBlue = (BYTE)(m_nPaintRGB & GPC_BLUE ? nColor : 0);
ppe->peFlags = (BYTE)0;

ppe++;
}

bSucc = m_Pal.CreatePalette(lpPal);

delete [](PBYTE)lpPal;
}
2.在窗口的On_Paint()成员函数中加入下面代码
CPalette *pPalOld = dc.SelectPalette(&m_Pal, FALSE);
dc.RealizePalette();
RECT rect;
this->GetClientRect(&rect);
this->PaintGradiantRect(&dc, rect);
dc.SelectPalette(pPalOld, FALSE);
3.其中的PaintGradiantRect函数如下:
ASSERT(pDC != NULL);
ASSERT_KINDOF(CDC, pDC);

// initialize
RECT rectVar = { rect.left, rect.top, rect.left, rect.top };
int nTotalSize;
if (m_nPaintDir == GPD_TTOB || m_nPaintDir == GPD_BTOT)
{
rectVar.right = rect.right;
nTotalSize = rect.bottom - rect.top;
}
else
{
rectVar.bottom = rect.bottom;
nTotalSize = rect.right - rect.left;
}

// paint nSteps times
for (int nIndex = 0; nIndex < m_nPaintSteps; nIndex++)
{
// calculate the rectangle
if (m_nPaintDir == GPD_TTOB || m_nPaintDir == GPD_BTOT)
{
rectVar.top = rectVar.bottom;
rectVar.bottom = rect.top +
 ::MulDiv(nIndex + 1, nTotalSize, m_nPaintSteps);
}
else
{
rectVar.left = rectVar.right;
rectVar.right = rect.left +
::MulDiv(nIndex + 1, nTotalSize, m_nPaintSteps);
}

// calculate the color value
int nColor = ::MulDiv(nIndex, 255, m_nPaintSteps);
if (m_nPaintDir == GPD_BTOT || m_nPaintDir == GPD_RTOL)
nColor = 255 - nColor;
const COLORREF clrBr =
PALETTERGB((BYTE)(m_nPaintRGB & GPC_RED ? nColor : 0),
   (BYTE)(m_nPaintRGB & GPC_GREEN ? nColor : 0),
   (BYTE)(m_nPaintRGB & GPC_BLUE ? nColor : 0));

// paint the rectangle with the brush
CBrush brush(clrBr);
pDC->FillRect(&rectVar, &brush);
}
4.使用调色板还要重载窗口的两个成员函数OnPaletteChanged(CWnd *pFocusWnd);
OnQueryNewPalette()
具体如何重载一般vc书上都有。

伪码：
COLORREF colorOrg(R,G,B);//原始颜色
int n;//渐变颗粒度

//渐亮
for(i=0;i<n;i++)
{
   colorNew.R=colorOrg.R + i*(255-colorOrg.R)/n;
   colorNew.G=colorOrg.G + i*(255-colorOrg.G)/n;
   colorNew.B=colorOrg.B + i*(255-colorOrg.B)/n;
}

//渐黑
for(i=0;i<n;i++)
{
   colorNew.R=colorOrg.R - i*colorOrg.R / n;
   colorNew.G=colorOrg.G - i*colorOrg.G / n;
   colorNew.B=colorOrg.B - i*colorOrg.B / n;
}

不如用OGL，不用耽误工夫

用这个API函数
BOOL GradientFill(
  HDC hdc,
  CONST PTRIVERTEX pVertex,
  DWORD dwNumVertex,
  CONST PVOID pMesh,
  DWORD dwNumMesh,
  DWORD dwMode
); 
TRIVERTEX        vert[2] ;
GRADIENT_RECT    gRect;
vert [0] .x      = 0;
vert [0] .y      = 0;
vert [0] .Red    = 0xff00;
vert [0] .Green  = 0x0000;
vert [0] .Blue   = 0x0000;
vert [0] .Alpha  = 0x0000;

vert [1] .x      = 100;
vert [1] .y      = 32; 
vert [1] .Red    = 0x0000;
vert [1] .Green  = 0x0000;
vert [1] .Blue   = 0x0000;
vert [1] .Alpha  = 0x0000;

gRect.UpperLeft  = 0;
gRect.LowerRight = 1;
GradientFill(hdc,vert,2,&gRect,1,GRADIENT_FILL_RECT_H);
速度快，不用你去计算，记住在VC的Project Setting的Link项加上msimg32.lib
还可用于三角形，通过三角形的组合，还可用更多的图形，具体用法看MSDN
记住给我分呀！

不好意思，操作失误

hboy:
   我先去查一下GradientFill的用法，肯定要给分

hboy:
  CSDN出问题了，给你的25分好像被CSDN吃了。

GradientFill在win2000和win98下可用，NT4.0和win98以下版本不能用，请问hboy,你是从和知道这些新API的。

为了方便，先找现有的，就找到了，现在你用到了程序里了吗，应该可用，我都是这样用的，你觉得好用，就多多给分！说不定下次还可帮你