Рет қаралды 387
hey guys thank you so much for watching and here is the code for the correct , incorrect , reset:
Sub Correct()
Points.Caption = (Points.Caption) + 10
Output = MsgBox("Your answer is correct, well done!", vbOKOnly, "Correct Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Incorrect()
Points.Caption = (Points.Caption) - 5
Output = MsgBox("Your answer is wrong.", vbOKOnly, "Wrong Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Reset()
Points.Caption = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub