[أسامة]

بعد اذن الاخ aliday03

كود :

       TextBox2.Text = TimeOfDay
       Dim d1 As DateTime = DateTime.Parse(TextBox1.Text) 'start time
       Dim d2 As DateTime = DateTime.Parse(TextBox2.Text) ' time now
       Dim difference As TimeSpan = d2 - d1
       TextBox4.Text = difference.Hours & ":" & difference.Minutes & ":" & difference.Seconds 'get time left
       If Int(TextBox4.Text = "0:0:0") Then
           TextBox4.Text = "Time Out"
           Beep() 'sound
           Timer1.Stop()
       End If

تنسيق الوقت فى Textbox1 5:54:00 PM
يمكنك تغير beep الى  My.Computer.Audio.Play(My.Resources.anything, AudioPlayMode.Background)