Activity 1

Code:

'Author: Yul Bryan B. Bringuer
'Cell #: 09236198230
'Address: Lapu-Lapu Ext., Digos City
'Course: BSIT

Private Sub cmdwin_Click()
Timer1.Enabled = True
Timer1.Interval = 100

Timer1_Timer
Me.cmdwin.Visible = False
CommandButton1.Visible = True

End Sub

Private Sub cmdend_Click()
Unload Me
End Sub

Private Sub CommandButton1_Click()
Me.CommandButton1.Visible = False
Me.Timer1.Enabled = False
Me.Timer1.Interval = 0

Me.cmdwin.Visible = True

If Me.lblone.Caption = "7" Or Me.lbltwo.Caption = "7" Or Me.lblthree.Caption = "7" Then
Me.Coins.Visible = True
Me.Label2.Caption = Me.Label2.Caption + 1
Beep
Else
Me.Label3.Caption = Me.Label3.Caption + 1

End If

End Sub

Private Sub Timer1_Timer()
Coins.Visible = False

lblone.Caption = Int(Rnd * 10)
lbltwo.Caption = Int(Rnd * 10)
lblthree.Caption = Int(Rnd * 10)

End Sub