Project_exercise#1

Private Sub cmdClick_Click()
Coins.Visible = False
lblA.Caption = Int(Rnd * 10) lblB.Caption = Int(Rnd * 10) lblC.Caption = Int(Rnd * 10) If (lblA.Caption = 7) Or (lblB.Caption = 7) Or (lblC.Caption = 7) Then

Coins.Visible = True
Beep

End If
End Sub

Private Sub cmdExit_Click()
End
End Sub