[نيمو]

السلام عليكم
في مشكلة بالرسائل لم استطع رد الرسالة لك وقمت بالرد هنا وانحذف البارحه
المهم

كود :

     Dim r As Date = Date.Now.ToShortDateString
           
           txt_date.Text = (r.AddDays(7))

او
           

كود :

txt_date.Text = (r.AddDays(val(textbox1.text)))

بدل الرقم تحط التكست بوكس وفي التكست تحط الرقم اللي تريده
اذا ما ظبط ارسل المشروع لو امكن