[tryold]

ضع فنكشن

كود :

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

 ثم في حدث DateTimePicker1 

كود :

 ("Label1.Text = ToHijra(DateTimePicker1.Value, "dddd