EXERCISE NO: 1

Private Sub cmdwin_Click()
Coins.Visible = False

lblone.Caption = Int(Rnd * 10)
lbltwo.Caption = Int(Rnd * 10)
lblthree.Caption = Int(Rnd * 10)

If (lblone.Caption = 7) Or (lbltwo.Caption = 7) Or (lblthree.Caption = 7) Then
Coins.Visible = True
Beep
End If
End Sub

Private Sub cmdend_Click()
End
End Sub