怎么实现指定两种颜色的渐变

如何实现指定两种颜色的渐变？
如何实现指定两种颜色的渐变？比如   红色-> 绿色   的渐变

[解决办法]
Option Explicit
Dim i As Integer
Private Sub Form_Load()
Shape1.FillColor = RGB(255, 0, 0)
i = 255
End Sub

Private Sub Timer1_Timer()
i = i - 1
Shape1.FillColor = RGB(i, 255 - i, 0)
If i = 0 Then
i = 255
End If
End Sub

[解决办法]
本来就不难，自己想想肯定能解决的
[解决办法]
本想得点分 被几位抢先了 呵呵