[عبدالله الدوسري]

وعليكم السلام ورحمة الله وبركاتة

كود :

Dim Dt As Date = CType(Me.Label1.Text, Date)
Me.Label2.Text = Dt.ToString("dddd")