[elgokr]

قم باستبدال كود منطقة 

DateTimePicker1_ValueChanged

بالكود التالى

كود :

Dim dateGregorian As Date = DateTimePicker1.Text
       Dim Y As String = dateGregorian.Year
       Dim M As String = dateGregorian.Month
       Dim D As String = dateGregorian.Day
       Dim ci As New Globalization.CultureInfo("ar-SA")
       Dim dateHijri As New DateTime(Y, M, D)
       Dim NameDay As String = dateHijri.ToString("ddd", ci)
       lblDayName.Text = NameDay
       '---إضافة عدد الايام للتاريخ الجديد
       lblDateAddDay.Text = DateTimePicker1.Value.AddDays(+txtAddDates.Text)

تحياتى لك

وتمنياتى لك التوفيق