Question

如何用VB6.0创建一个程序,当程序运行时修改系统时间,当按一个按钮关闭程序时恢复系统时间?

我是初学者，麻烦各位帮我回答一个简单的问题。
如何用VB6.0创建一个程序,当程序运行时修改系统日期,当按一个按钮关闭程序时恢复系统日期?
比如:现在系统时间为2007.8.26,当程序运行时系统时间为2008.08.08,当程序关闭时日期为2007.8.26。

Thank You

Answer 1

Dim d As Date

Private Sub Form_Load()
d = Date
Shell "cmd /c date 2008-08-08" '（替换成你需要的日期）
End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell "cmd /c date " & d, vbHide
End Sub