blob: 8cc25d13ed79accc045b69f13f5fcfcc7053aeec (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
|
