[vbnet]

.....

جرب التالي

كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    '-------- تغيير إعدادات المشروع --------
    Dim arSA As New Globalization.CultureInfo("ar-SA")
    arSA.DateTimeFormat.Calendar = New Globalization.GregorianCalendar() ' اعتماد التقويم الميلادي
    Threading.Thread.CurrentThread.CurrentCulture = arSA ' ضبط المشروع على الإعدادات الجديدة
    '------------------------------------------

End Sub

.....