[Rabeea Qbaha]

تفضل اخي 
تحتاج
 textbox1
textbox2
buttom

كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub
   Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
       Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = ToHijra(Now, "dddd :d, MMMM yyyy")
       TextBox2.Text = Date.Now.ToString("yyyy-MM-dd")
   End Sub
End Class