[ssayed111]

استخدم هذه الطريقه لضبط اعدادات التقويم والارقام في وندوز بالكود
Private Sub g() ' '' ''ميلادي

Const userRoot As String = "HKEY_CURRENT_USER"
Const subkey As String = "Control Panel\International"
Const keyName As String = userRoot & "\" & subkey
Microsoft.Win32.Registry.SetValue(keyName, "IDate", 1)
'Microsoft.Win32.Registry.SetValue(keyName, "sShortDate", "dd/MM/yyyy")
Microsoft.Win32.Registry.SetValue(keyName, "sShortDate", "yyyy/MM/dd")
Microsoft.Win32.Registry.SetValue(keyName, "iCalendarType", "1")
Microsoft.Win32.Registry.SetValue(keyName, "iCountry", "61")
Microsoft.Win32.Registry.SetValue(keyName, "Locale", "00000C09")
Microsoft.Win32.Registry.SetValue(keyName, "LocaleName", "ar-SA")
Microsoft.Win32.Registry.SetValue(keyName, "sLanguage", "ENA")
'' '' '' ''Microsoft.Win32.Registry.SetValue(keyName, "sLanguage", "ar-SA")
Microsoft.Win32.Registry.SetValue(keyName, "sLongDate", "yyyy/MM/dd")

Microsoft.Win32.Registry.SetValue(keyName, "NumShape", "2")
''بعد ذالك تحتاج الى عملية إنعاش الويندوز لإظهار التغيرات على الجهاز عن طريق الكود التالي :

'For Each ObjProcess As Process In Process.GetProcessesByName("explorer")
' ObjProcess.Kill()
'Next
'Process.Start("explorer")
End Sub
Private Sub h() '' '' او' '' ''ميلادي

My.Application.ChangeCulture("ar-SA")
My.Application.ChangeUICulture("ar-SA")
'MsgBox(Now.ToShortDateString)

Const userRoot As String = "HKEY_CURRENT_USER"
Const subkey As String = "Control Panel\International"
Const keyName As String = userRoot & "\" & subkey
Microsoft.Win32.Registry.SetValue(keyName, "IDate", 1)
'Microsoft.Win32.Registry.SetValue(keyName, "sShortDate", "dd/MM/yyyy")
Microsoft.Win32.Registry.SetValue(keyName, "sShortDate", "yyyy/MM/dd")
Microsoft.Win32.Registry.SetValue(keyName, "iCalendarType", "6")
Microsoft.Win32.Registry.SetValue(keyName, "iCountry", "61")
Microsoft.Win32.Registry.SetValue(keyName, "Locale", "00000C09")
Microsoft.Win32.Registry.SetValue(keyName, "LocaleName", "ar-SA")
Microsoft.Win32.Registry.SetValue(keyName, "sLanguage", "ENG")
' '' '' '' '' '' ''Microsoft.Win32.Registry.SetValue(keyName, "sLanguage", "ar-SA")
'Microsoft.Win32.Registry.SetValue(keyName, "sLongDate", "dddd, d MMMM yyyy")
Microsoft.Win32.Registry.SetValue(keyName, "sLongDate", "dd/MM/yyyy 'هـ'")
Microsoft.Win32.Registry.SetValue(keyName, "NumShape", "2")
End Sub

---

المعزرة الاجراء Private Sub h() '' للتاريخ الهجري اما Private Sub g() للميلادي وفور تنفيذ احدهم يظر النتيجه مباشرة في البرنامج اما التقويم الظاهر بجوار الشاشه
يتغير عند اعادة التشغيل
اما في برنامجك تستطيع التحكم في طريقة عرض اداة DateTimePicker
يمكن ان يساعدك هذا الفديو في تلبية طلبك
https://www.youtube.com/watch?v=zdt4qxa3QWw