Set Time

'Set Time



Private Declare Sub SetSystemTime
Lib "kernel32" _

(lpSystemTime As SYSTEMTIME)



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 Sub Form_Load()

Dim lpSystemTime As
SYSTEMTIME

lpSystemTime.wYear = 2009

lpSystemTime.wMonth = 1

lpSystemTime.wDayOfWeek = -1

lpSystemTime.wDay = 13

lpSystemTime.wHour = 8

lpSystemTime.wMinute = 13

lpSystemTime.wSecond = 8

lpSystemTime.wMilliseconds = 0

'set the new time

SetSystemTime lpSystemTime

End Sub