Activity 1

Code:




Private Sub cmdClick_Click()


Coins.Visible = False
Me.Image1.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
Me.Image1.Visible = True
Beep
End If


End Sub

Private Sub cmdExit_Click()
End
End Sub