Private Sub btn_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_start.Click
Dim time As String
time = txt_time.Text * 3600
txt_time.Text = time
timer1.enabled =true
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
txt_time.Text = myTime - 1
myTime = txt_time.Text
If txt_time.Text= 0 Then
'Insert event here
Next
End If
End Sub
Copyright © 2024, NextGenUpdate.
All Rights Reserved.