How To Set the System Time

MORE INFORMATION

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add the following code to the General Declarations section of Form1:

         Option Explicit
   
         Private Type SYSTEMTIME
           wYear As Integer
           wMonth As Integer
           wDayOfWeek As Integer
           wDay As Integer
           wHour As Integer
           wMinute As Integer
           wSecond As Integer
           wMilliseconds As Integer
         End Type
   
         Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime _
           As SYSTEMTIME) As Long
   
         Private Sub Form_Load()
           Dim lReturn As Long
           Dim lpSystemTime As SYSTEMTIME
           lpSystemTime.wYear = 1996
           lpSystemTime.wMonth = 6
           lpSystemTime.wDayOfWeek = 5
           lpSystemTime.wDay = 28
           lpSystemTime.wHour = 9
           lpSystemTime.wMinute = 42
           lpSystemTime.wSecond = 0
           lpSystemTime.wMilliseconds = 0
           lReturn = SetSystemTime(lpSystemTime)
         End Sub
   
   					

3. Run the project by pressing the F5 key. Check the system time and date in the Control Panel. The time should have changed to reflect the UTC-based time settings used in the sample.