setfillstyle(int pattern, int color)//先用这个函数设置一下填充的模式
floodfill(int x, int y, int border)//再用这个函数填充就可以了。
floodFill( Point start, Color color, int type )
start:指定开始填充的点的坐标(单位是象素)
color: 填充颜色
type: 填充样式
VB 我没试过,不过相信可以通过这个函数实现。