[Anas Mahmoud]

كود :

Private Sub ChangeDate()
  Dim d As DateTime
  d = "22:30:00"

  Try
     Microsoft.VisualBasic.TimeOfDay = d 'Your time...
     Microsoft.VisualBasic.DateString = New Date(1978, 4, 28) 'The date...
  Catch ex As Exception
     'You might have to run as Administrator...?
  End Try

End Sub

تحتاج لان يعمل البرنامج كمسئول لتعمل 

https://stackoverflow.com/a/28590595