[alsouf]

شكرا جزيلا اخي .................
يمكنك جعلهم يظهرون بطريقة اوضح ببعض التعديلات البسيطة كما يلي :

كود :

'فقط للتاريخ الهجري  
Imports System.Threading  'فقط للتاريخ الهجري  
Imports System.Globalization   'فقط للتاريخ الهجري  

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'هذا الكود لجعل البرنامج يعمل بالتقويم الميلادي حتى لو الجهاز بالتقويم الهجري  تستطيع وضعه في لوود الفورم
        Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-eg")
        Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("ar-dz")
        TextBox1.Text = Format(Date.Now, "dddd dd MMMM yyyy")
        Label1.Text = Format(Date.Now, "  dd  MM   yyyy") & " ميلادي    "
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'هذا الكود لجعل البرنامج يعمل بالتقويم الهجري حتى لو الجهاز بالتقويم الميلادي  تستطيع وضعه في لوود الفورم
        Dim Ar As CultureInfo = New CultureInfo("AR-SA")
        Thread.CurrentThread.CurrentCulture = Ar
        Ar.DateTimeFormat.Calendar = New HijriCalendar
        Ar.NumberFormat.DigitSubstitution = DigitShapes.NativeNational
        TextBox1.Text = Format(Date.Now, "dddd dd MMMM yyyy")
        Label1.Text = Format(Date.Now, "dd MM yyyy") & " هجري   "
    End Sub
End Class