VB 调整系统时间

你重新复制一遍我给你的代码，现在好使
话一个Winsock1控件
Option Explicit
'采用RFC867 Daytime协议获取标准时间例程
'www.time.ac.cn为中科院国家授时中心，采用北京时间
'时间格式：Mon Jul 26 09:58:57 2004
'time.nist.gov为美国标准技术院，采用格灵威时间
'时间格式：53212 04-07-26 02:00:12 50 0 0 488.3 UTC(NIST) *
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim NoSrv As Boolean
Dim TimeFromNet

Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol '采用TCP协议
NetTime "www.time.ac.cn" '首先取中科院国家授时中心时间
If NoSrv Or TimeFromNet = "" Then
'若未取到中科院国家授时中心时间，则取美国标准技术院时间
NetTime "time.nist.gov"
If NoSrv Or TimeFromNet = "" Then
'若不能取美国标准技术院时间，则报错
MsgBox "检测不到网络标准时间服务器time.nist.gov！" <