diff options
| author | Syndamia <kami02882@gmail.com> | 2019-11-29 15:35:13 +0200 |
|---|---|---|
| committer | Syndamia <kami02882@gmail.com> | 2019-11-29 15:35:13 +0200 |
| commit | 14b74242182122c819683a7264e1362214048601 (patch) | |
| tree | 5e99febdff43407277d8821aa52c03f8183add81 /Who wants to become a millionare - Africa (BG)/Extracted code/Slide18.cls | |
| parent | 354e6d3c70ec6ceb7a1f9ae1679b50ff8e68f64f (diff) | |
| download | Shower-14b74242182122c819683a7264e1362214048601.tar Shower-14b74242182122c819683a7264e1362214048601.tar.gz Shower-14b74242182122c819683a7264e1362214048601.zip | |
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)
Diffstat (limited to 'Who wants to become a millionare - Africa (BG)/Extracted code/Slide18.cls')
| -rw-r--r-- | Who wants to become a millionare - Africa (BG)/Extracted code/Slide18.cls | 22 |
1 files changed, 22 insertions, 0 deletions
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 |