[RESOLVED] Set System Time

[Zach_VB6]

Is there an API I can use to set the system time?

[Doogle]

Why not use the Time statement?

[Edgemeal]

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 Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Function SetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Private Sub Command1_Click()

    Dim mLocalTime  As SYSTEMTIME
    Dim retval      As Long
    
    GetLocalTime mLocalTime
    mLocalTime.wMonth = 5 ' Change month to May.
    retval = SetLocalTime(mLocalTime)
    
End Sub

[Hack]

This is for a local computer, not a remote machine, right?