کد بدرد بخوریه.یک تابعه که بهش آرگومانهای لازم رو میدی و برات همه چیه تنظیم میکنه.به  Dim SetTime 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 Declare Function SetLocalTime Lib "kernel32.dll" (lpSystemTime As SystemTime) As Long



Public Sub SetNewTime(NewHour As Integer, NewMinute As Integer, NewSecond As Integer)
' Set the system time with Hours, Minutes, Seconds
Dim SetTime As SystemTime
Dim RetVal As Long


SetTime.wHour = NewHour
SetTime.wMinute = NewMinute
SetTime.wSecond = NewSecond
SetTime.wMilliseconds = 0
SetTime.wDay = Day(Date)
SetTime.wMonth = Month(Date)
SetTime.wYear = Year(Date)


' Set time and date.
RetVal = SetLocalTime(SetTime)
End Sub