shape控件颜色变化相关问题

在VB中,如果数据保持相同的变化趋势,例如正弦曲线，则指示灯不变;如果变化无规律,则指示灯发生改变。保持指示灯颜色不变的程序应该是怎样的呢？