Hi,

Assign this to the Mouseclick Action for the picture.
It adjusts the brightness of the picture until it becomes white.
Change slide and shape indexes to suit your ppt.
[vba]Sub Fade()
'
Dim lngIndex As Long
Dim sngBright As Single

With ActivePresentation.Slides(1).Shapes(3).PictureFormat
sngBright = 0
Do
.IncrementBrightness sngBright
For lngIndex = 1 To 9999
Next
sngBright = sngBright + 0.01
DoEvents
Loop While sngBright <= 1
End With

End Sub[/vba]
BTW PPT2003 has fade built in.