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