lblStartSet.Text=txtStartTime.Text
lblStopSet.Text=txtEndTime.Text
timer1.Initialize("Timer1", 5000)
Dim timenow,starttime As Long
starttime=DateTime.TimeParse(lblStartSet.Text)
DateTime.TimeFormat="HH:mm"
timenow=DateTime.Time(DateTime.Now)
If starttime>=timenow Then
timer1.Enabled = True
End If