Exit animation on click - PP 2000

[grime]

Using PowerPoint 2000, so the animation timing effects are not
available to me.

I am creating a Family Feud type slide that has 8 hidden answers, which
I would like to reveal randomly by clicking them.

Currently, I have it set up to run (with Action Settings) the following
VBA when a shape (the shape that covers the answer) is clicked:

Sub RevealAnswer(oShape As Shape)
oShape.Visible = Not oShape.Visible
End Sub

I would like to reveal the answer a little "fancier" with animation,
rather than just hiding the shape.

The answer can either be revealed in 2 ways, whichever is easiest in
VBA:
1) Click the shape that is covering the answer, and then animation
will make that shape disappear, thus revealing the answer.
2) The answer is hidden, and by clicking the shape, the answer is
revealed with animation.

Any help would be greatly appreciated.

 

[Bill Foley]

If you can live with just 5 choices per question, I have a free sample game
that you can download at:

http://www.pttinc.com/ppgame.htm

 

[grime]

Thanks for the reply, Bill! Actually, I downloaded that already! I
need a little different version for my purposes unfortunately.

Would you might sharing a bit of your code?

Matt