Visual Basic

Imports System.Runtime.InteropServices<br />
Public Class Form1<br />
    Private Structure SYSTEMTIME<br />
        Dim wYear As Integer<br />
        Dim wMonth As Integer<br />
        Dim wDayOfWeek As Integer<br />
        Dim wDay As Integer<br />
        Dim wHour As Integer<br />
        Dim wMinute As Integer<br />
        Dim wSecond As Integer<br />
        Dim wMilliseconds As Integer<br />
    End Structure<br />
<br />
    Private Declare Function SetSystemTime Lib "kernel32" _<br />
       (ByVal lpSystemTime As SYSTEMTIME) As Boolean<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim NewTimeDate As SYSTEMTIME<br />
        NewTimeDate.wYear = 2006<br />
        NewTimeDate.wMonth = 10<br />
        NewTimeDate.wDay = 4<br />
        NewTimeDate.wHour = 5<br />
        NewTimeDate.wMinute = 5<br />
        NewTimeDate.wSecond = 5<br />
        NewTimeDate.wMilliseconds = 5<br />
        If SetSystemTime(NewTimeDate) = True Then<br />
            MsgBox("Done")<br />
        End If<br />
    End Sub<br />
End Class