Heres some code on GetSystemTime(). SetSystemTime works almost the exact same way. You have to format the time and store it in the systemtime TYPE and then call the function.

Hope it helps:
Phil

Option Explicit
Private Const LOCALE_SYSTEM_DEFAULT& = &H800
Private Const LOCALE_USER_DEFAULT& = &H400


'**********************************
'** Type Definitions:

#If Win32 Then
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 Type TIME_ZONE_INFORMATION
Bias As Long
StandardName As String * 64
StandardDate As SYSTEMTIME
StandardBias As Long
DaylightName As String * 64
DaylightDate As SYSTEMTIME
DaylightBias As Long
End Type

#End If 'WIN32 Types

'**********************************
'** Function Declarations:

#If Win32 Then
Private Declare Function GetLocaleInfo& Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long)
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetSystemTimeAdjustment Lib "kernel32" (lpTimeAdjustment As Long, lpTimeIncrement As Long, lpTimeAdjustmentDisabled As Long)
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Function GetTimeZoneInformation& Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION)
Private Declare Function GetTimeFormat& Lib "kernel32" Alias "GetTimeFormatA" _
(ByVal Locale As Long, ByVal dwFlags As Long, lpTime As SYSTEMTIME, _
ByVal lpFormat As Long, ByVal lpTimeStr As String, ByVal cchTime As Long)


#End If 'WIN32

Private Sub Form_Load()
Dim myTZ As TIME_ZONE_INFORMATION
Dim myAdj&, myIncr&, myDisabled&
Dim s$, dl&
GetSystemTimeAdjustment myAdj&, myIncr&, myDisabled&
If myDisabled& Then
txtAdjust = "Disabled."
Else
txtAdjust = myAdj& & " ns Every " & myIncr& & " ns."
End If
dl& = GetTimeZoneInformation(myTZ)
txtTZBias = CInt(myTZ.Bias / 30) / 2 & " hours"
s$ = myTZ.StandardName
txtTZName = StrConv(s$, vbFromUnicode)
s$ = myTZ.DaylightName
txtTZSName = StrConv(s$, vbFromUnicode)
End Sub


'
' Obtain the system and local time and display them
'
Private Sub Timer1_Timer()
Dim myTime As SYSTEMTIME, s$, dl&
GetLocalTime myTime
s$ = String$(255, Chr$(0))
dl& = GetTimeFormat&(LOCALE_SYSTEM_DEFAULT, 0, myTime, 0, s$, 254)
txtLocTime = s$
GetSystemTime myTime
s$ = String$(255, Chr$(0))
dl& = GetTimeFormat&(LOCALE_SYSTEM_DEFAULT, 0, myTime, 0, s$, 254)
txtSysTime = s$

End Sub


Private Sub txtNum_Change()

End Sub


Private Sub txtLocTime_Change()

End Sub