[boudyonline]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Dim Ar As CultureInfo = New CultureInfo("AR-SA")
       Thread.CurrentThread.CurrentCulture = Ar
       Ar.DateTimeFormat.Calendar = New HijriCalendar
       Ar.NumberFormat.DigitSubstitution = DigitShapes.NativeNational
       MsgBox(Format(Date.Now, "dddd dd MMMM yyyy"))
End Sub

مع وضع الكود التالي قبل بدابة فسم النصريحات

كود :

Imports System.Threading
Imports System.Globalization