EXERCISE 1: "THE LUCKY SEVEN"

Dim RGBValue As Integer

Private Sub cmdT1_Click()
COINS1.Visible = False

lblT1.Caption = Int(Rnd * 10)
LBLT2.Caption = Int(Rnd * 10)
LBLT3.Caption = Int(Rnd * 10)

If (lblT1.Caption = 7) Or (LBLT2.Caption = 7) Or (LBLT3.Caption = 7) Then
COINS1.Visible = True
Beep
End If
End Sub

Private Sub cmdT2_Click()
End
End Sub

Private Sub Form_Load()
Label3.Caption = Date
Label4.Caption = Time

End Sub

Private Sub mnuAuthor_Click()
FRM3.Show
FRM2.Hide
End Sub