Public Class Form2 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Label1.Text - 1 If Label1.Text = 0 Then Timer1.Stop() My.Computer.Audio.Play(My.Resources.applause_wav, AudioPlayMode.Background) Form3.Show() Me.Close() End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Label2.Text = Label2.Text - 1 If Label2.Text = 0 Then My.Computer.Audio.Play(My.Resources.zap1, AudioPlayMode.Background) Label2.Text = 60 End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, Timer1.Tick, Timer2.Tick 'Toggles Pause?/Unpause? and Timer.start/.stop If CheckBox1.Checked Then Timer1.Enabled = False Timer2.Enabled = False CheckBox1.Text = "Unpause?" Else Timer1.Enabled = True Timer2.Enabled = True CheckBox1.Text = "Pause?" End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.Show() Timer1.Enabled = False Timer2.Enabled = False Label2.Text = 60 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class
Any help would be greatly appreciated.

New Topic/Question
Reply



MultiQuote







|