如何 vb 修改系统时间

在窗口上建立一个command 复制下面的代码就可以了。。。

Private Sub Command1_Click()
Dim tt, dd
tt = Time
dd = Date
If Command1.Caption = "开始使系统时间暂停" Then
Command1.Caption = "停止暂停，继续运行"
Else
Command1.Caption = "开始使系统时间暂停"
End If
Do
DoEvents
Date = dd
Time = tt
Loop Until Command1.Caption = "开始使系统时间暂停"
End Sub

Private Sub Form_Load()
Command1.Caption = "开始使系统时间暂停"
End Sub

vb修改系统时间可是再简单不过了
一个代码就可以实现了

Date = DateValue("你要修改的日期")

注意这个输入的日期是有格式的
比如说你想修改到8888年8月8日
就是Date = DateValue("8888-8-8")

千万不能写Date = DateValue("8888年8月8日")

在窗体上加入控件timer1，然后复制下面代码即可。
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Date = #10/10/2008#
Time = #10:10:00 AM#
End Sub