请问怎么实现颜色的渐变

Question

比如从红色到蓝色 分成10步实现颜色渐变 要怎么实现？

Answer 1

Private Sub Command1_Click()
Me.FillStyle = 0
Dim i As Byte
For i = 0 To 9
Me.FillColor = RGB(255 - 25.5 * i, 0, 25.5 * i)
Me.Line (500 * i, 0)-(500 * i + 500, 500), , B
Next
End Sub

Answer 2

就是从RGB(255,0,0)到RGB(0,0,255)咯，自己算一下7就可以分出来啦

Answer 3

安装程序的背景有很多都是渐变的，我的网站上有VB6自带安装程序的源码，你可以看看。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 4

谢谢各位 还有个问题 我要提取mored的 RGB值 可是提出来是255 怎么转变成RGB(255，0，0)这样 因为我要分别取值 要R=255 G=0 B=0 不能直接设置 比如MOBLUE=16711680 这个数字只有8位  R G B 分别要怎么取？