它这个网页本身就有时间误差，无毫秒数。
你要减少误差，不考略网络延时误差时，就使用最简单的的方法吧

Private Sub Command2_Click()
dim j as string
j=gettime                      '重读时间
Time = Right(j, 8)             '设置时间
label1.caption=j               '显示时间
End Sub