How to fade text in PowerPoint?

[quicklearner]

Hi I am into PowerPoint Automation.I am using Visual Basic 6 for automating
PowerPoint.Currently I am applying Effect to the PPplaceholder body but I
want to apply fade effect to text written in the PPplaceholder body.I want
that on a click single bullet shlould get fade then on next click next bullet
should fade.But I am not getting how to do that any one has got any idea how
to do this.

I am pasting my code.If any got any Idea plz help me out in this.

'************** Code************************
Sub NewMotion()
Dim shpNew As Shape
Dim effNew As Effect
Dim aniMotion As AnimationBehavior
Dim Shapes_() As Shape
Dim shp As Shape
Dim effect_ ,eff As Object
Dim sldActive As Slide
Set sldActive = ActiveWindow.Selection.SlideRange(1)
ReDim Shapes_(ActivePresentation.Slides(1).Shapes.Count)
Counter = 0
For Each shp In ActivePresentation.Slides(1).Shapes
Counter = Counter + 1
Set Shapes_(Counter) = shp
Next

For i = 1 To UBound(Shapes_)
If i = 2 Then
Set effect_ = sldActive.TimeLine.MainSequence.AddEffect
(Shape:=Shapes_(i), effectid:=msoAnimEffectDiamond)
With effect_
.Timing.TriggerType = msoAnimTriggerWithPrevious
.Timing.TriggerDelayTime = 0.2
' .Timing.Duration = 20
.Timing.Speed = 0.23
.EffectType = msoAnimEffectSplit
.EffectParameters.Direction =
msoAnimDirectionHorizontalOut
End With
End If
Next
End Sub

*********************Code Ends *********************
In the above code effect is applied to the Whole PPplaceholder Body.Now i
want that when I'll click then first bullet should fade to grey then on next
click second bullet should fade to grey & so on.
But i dont have anu idea hoe to do it.If any got any idea plz help me out.
Currently I am using Powerpoint2002 & Visual Basic 6.0

Thanks in advance