Option Explicit

Dim x, dx As Long

Private Sub cmdchay_Click()

Timer1.Enabled = Not Timer1.Enabled

Timer2.Enabled = Not Timer2.Enabled

If (Timer1.Enabled = True) Or (Timer2.Enabled = True) Then

cmdchay.Caption = "Stop"

Else

cmdchay.Caption = "Play"

End If

End Sub

Private Sub cmdthoat_Click()

Dim x As String

x = MsgBox("Ban muon thoat?", vbOKCancel + vbQuestion + vbDefaultButton1, "Thong bao!")

If x = vbOK Then

End

End If

End Sub

Private Sub Timer1_Timer()

lblchu.ForeColor = vbGreen

lblchu.FontSize = 10

End Sub

Private Sub Timer2_Timer()

lblchu.ForeColor = vbGreen

lblchu.FontSize = 20

End Sub