Who Wants To Be A Millionaire PP Show

[m_siepel]

I have a copy of the WWTBAM PowerPoint Presentation that was created by Edward Catchpole. I have tried to contact him, but to no avail. I am trying to get the Phone A Friend lifeline VBA to work. It worked in previous versions of PP, but not since upgrading to MSOFFICE2010. Here is the VBA for it. What happens is the timer appears, but will not rotate as state in the code and note go away. Any help (including the entire PP file if needed) would be appreciated.

Public Sub PhoneAFriend()

Dim timerProgress As Shape
Dim timerFigure As Shape
Dim timerProgressbg As Shape
Dim timerEndCall As Shape

Dim timerStart As Long
Dim timerEnd As Long
Dim thisTick As Long
Dim rotation As Single

If pafInProgress = True Then Exit Sub
If ViewingCorrect = True Then Exit Sub

Set timerProgress = SlideShape(QuestionSlide, "timerprogress")
Set timerFigure = SlideShape(QuestionSlide, "timerfigure")
Set timerProgressbg = SlideShape(QuestionSlide, "timerprogressbg")
Set timerEndCall = SlideShape(QuestionSlide, "cancelpaf")

cancelPAF = False
pafInProgress = True

CurrentPAF = CurrentPAF + 1

'set PAF symbol invisible
Call PlaySound(PresPath & "\Audio\PAF_CLOCK.wav", 0, SND_ASYNC + SND_FILENAME)
Sleep (1000)
SlideShape(QuestionSlide, "PAF").Left = -250

timerProgress.Left = 269.25
timerFigure.Left = 269.25
timerProgressbg.Left = 269.25
timerEndCall.Left = 233.125

timerStart = GetTickCount()
timerEnd = timerStart + 30000
thisTick = GetTickCount()

Do While cancelPAF = False
thisTick = GetTickCount()

rotation = ((timerEnd - thisTick) / 30000) * 180 'PowerPoint makes 180 scale to 360 for some reason

If thisTick < timerEnd Then
timerProgress.Adjustments.Item(1) = rotation - 90
timerProgress.rotation = -rotation
Else
timerProgress.Adjustments.Item(1) = 90.1
timerProgress.rotation = 180
Exit Do
End If

Dim newTime As Integer

newTime = (timerEnd - thisTick) / 1000 'Time in seconds remaining
If timerFigure.TextFrame.TextRange.Text <> newTime Then
timerFigure.TextFrame.TextRange.Text = newTime
End If

DoEvents
Loop

timerProgress.Left = -500
timerFigure.Left = -500
timerProgressbg.Left = -500
timerEndCall.Left = -500

pafInProgress = False
Sleep (3000)
Call PlayBGM(True)

End Sub