How to do Fading of text programatically. Using Visaul Basic???

[helpSeeker]

I m into powerpoint automation. I am implementing animation effects
programatically. One of the requirements of my project is to fade away that
previous line to GREY COLOR while the current line is being animated. I have
been able to apply the fade effect but there is a problem. It just fades the
first line of the slide to GREY while it fades the other lines to
PowerPoint's default selected color(at that time). In my case all the lines
except for first are fading to dark blue. Only the first line is fading to
grey.
I m coding in VB. Here is the function that I m using to fade the text to
grey. I have been able to set the timings of animations. The only problem is
the fading of text.


********************************************
Sub EffectsTextFade(effect_ As Object)

On Error Resume Next

Dim bhvEffect

With effect_
.EffectInformation.Dim.SchemeColor = 8
.Timing.TriggerType = 2
.Timing.TriggerDelayTime = 0
.Timing.Speed = 5
.EffectType = 56
.EffectParameters.Color2.RGB = RGB(Red:=133, Green:=133, Blue:=133)
End With

End Sub
**************************************************
where effect_ = .MainSequence.AddEffect(Shape:=NewShape, effectId:=0)

This RGB(133,133,133) is the grey color. I have ran the code in trace mode
and the above function runs for everyline of text but the grey color is
applied to only the first line of the slide. All the other lines are fading
to some other color (in my case..its fading to Dark blue).

So, can anyone help me what to do so that all my lines fade to GREY COLOR???

Thanks
Amrish