EXERCISE NO. 1

Private Sub cmdcan_Click()

End
End Sub

Private Sub cmdClick_Click()
Coins1.Visible = False

lblg1.Caption = Int(Rnd * 10)
lblg2.Caption = Int(Rnd * 10)
lblg3.Caption = Int(Rnd * 10)

If (lblg1.Caption = 7) Or (lblg2 = 7) Or (lblg3 = 7) Then
Coins1.Visible = True
Beep
End If

End Sub