VB根据数值填充图形？

请教VB中有一个封闭图形，如何根据数值大小填充图形的颜色？ --------------------编程问答-------------------- --------------------编程问答-------------------- 你弄个算法,把数值转换成颜色就成了呗, --------------------编程问答-------------------- --------------------编程问答-------------------- 用个进度条么

补充：VB ,  基础类