كود :
Dim time1 As DateTime = CDate(TextBox1.Text) 'وقت المغرب
Dim time2 As DateTime = CDate(TextBox2.Text).AddDays(1) 'وقت الفجر ونزيد عليه يوم لانه سيكون في اليوم التالي
Dim minutes As Integer = (time2 - time1).TotalMinutes 'نطرح الوقتين ونحوله لدقائق
Dim third As Integer = (minutes / 3) 'نقسم الدقائق لنعرف مقدار الثلث
Dim third3 As Integer = third * 2 'نضرب في 2 لنحسب دقائق الثلثين اي بداية الثلث الثالث
Dim time3 As Date = time1.AddMinutes(third3) 'نظيف دقائق الثلثين لوقت المغرب ليصبح وقت الثلث الاخير
TextBox3.Text = time3.ToShortTimeString 'عرض وقت الثلث الاخير