EXERCISE NO. 1

Private Sub cmdCLICK_Click()

Coins.Visible = False

lbl1.Caption = Int(Rnd * 10)

lbl2.Caption = Int(Rnd * 10)

lbl3.Caption = Int(Rnd * 10)

If (lbl1.Caption = 7) Or (lbl2.Caption = 7) Or (lbl3.Caption = 7) Then

Coins.Visible = True

Beep

EndIf

End Sub
Private Sub cmdEXIT_Click()

End

End Sub