DeclareでSetSystemTime Lib呼び出してシステムの時刻変えられる

Declare Function SetSystemTime Lib "Kernel32" ( sysTime as Ptr ) as Boolean

dim sysTime as new MemoryBlock( 16 )
sysTime.Short( 0 ) = 2014
sysTime.Short( 2 ) = 3
//sysTime.Short( 4 ) = dayOfWeek
sysTime.Short( 6 ) = 1
//sysTime.Short( 8 ) = hour
//sysTime.Short( 10 ) = minute
//sysTime.Short( 12 ) = second
//sysTime.Short( 14 ) = millisecond

call SetSystemTime( sysTime )


で日付時刻セットする
上記で2014/3/1になる
あとは適当にどうぞ