[farhat]

لسلام عليكم

حاولت استعمال الكود لكن لم ينجح معي ربما لأنني لم أفهم كيف يعمل . هذا هو الكود هل يمكن تعديله لو سمحتم .

كود :

Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
       'لإضافة يومان للتاريخ الهجري
       If NumericUpDown1.Value = 2 Then
           Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\International", True).SetValue("AddHijriDate", "AddHijriDate+2")
       End If
       'لإضافة يوم واحد للتاريخ الهجري
       If NumericUpDown1.Value = 1 Then
           Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\International", True).SetValue("AddHijriDate", "AddHijriDate+1")
       End If
       'لعدم إضافة أو إنقاص أي أيام
       If NumericUpDown1.Value = 0 Then
           Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\International", True).SetValue("AddHijriDate", "")
       End If
       'لإنقاص التاريخ الهجري بمقدار يوم واحد
       If NumericUpDown1.Value = -1 Then
           Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\International", True).SetValue("AddHijriDate", "AddHijriDate-1")
       End If
       If NumericUpDown1.Value = -2 Then
           'لإنقاص التاريخ الهجري بمقدار يومان
           Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\International", True).SetValue("AddHijriDate", "AddHijriDate-2")
       End If
       'في نهاية الكود لا تنسى غلق مفتاح الريجستري الذي قمنا بتعديله
       Microsoft.Win32.Registry.CurrentUser.Close()
   End Sub