[Anas Mahmoud]

المشكلة اذا كنت تستخدم ويندوز 10 فانه يقوم يضبط التاريخ تلقائيا اذا قمت بتغييره 
جرب هذه طيب 

اضف الكود التالي :

كود :

Private Structure SYSTEMTIME

       Public year As Short

       Public month As Short

       Public dayOfWeek As Short

       Public day As Short

       Public hour As Short

       Public minute As Short

       Public second As Short

       Public milliseconds As Short

   End Structure

   <Runtime.InteropServices.DllImport("Kernel32.dll")> Private Shared Function SetLocalTime(ByRef time As SYSTEMTIME) As Boolean

   End Function

   Private Sub ChangeDate(NewDate As Date)

       Dim st As SYSTEMTIME
       st.year = NewDate.Year
       st.month = NewDate.Month
       st.dayOfWeek = NewDate.DayOfWeek
       st.day = NewDate.Day
       st.hour = NewDate.Hour
       st.minute = NewDate.Minute
       st.second = NewDate.Second
       st.milliseconds = NewDate.Millisecond

       'Set the new time...
       SetLocalTime(st)
   End Sub

الان عند تغيير التاريخ :

كود :

       ChangeDate(New Date(2020, 8, 13))

وايضا يجب تشغيل البرنامج كمسئول