From 14b74242182122c819683a7264e1362214048601 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Fri, 29 Nov 2019 15:35:13 +0200 Subject: Added "Who wants to be a millionare?" - Africa PowerPoint project Added the presentation, some README files to explain a bit and added the code (extracted it from the presentation) --- .../Extracted code/Slide18.cls | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 Who wants to become a millionare - Africa (BG)/Extracted code/Slide18.cls (limited to 'Who wants to become a millionare - Africa (BG)/Extracted code/Slide18.cls') diff --git a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide18.cls b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide18.cls new file mode 100644 index 0000000..8cc25d1 --- /dev/null +++ b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide18.cls @@ -0,0 +1,22 @@ +VERSION 1.0 CLASS +BEGIN + MultiUse = -1 'True +END +Attribute VB_Name = "Slide18" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = True +Public Sub SetPrizeMoney(value As Long) + +lblPrize.Caption = value + +End Sub + +Private Sub cmdPlayAgain_Click() + +SlideShowWindows(1).View.GotoSlide 2 + +End Sub + +'Kamen Mladenov 2019 -- cgit v1.2.3