初学者，VB中实现标签中同步显示时间

快餐包的代码太啰嗦，Lijinfeng的不错么~~呵呵

完整的如下，添加一个timer，然后就可以了：
Private Sub Form_Load()
With Me
Caption = Time()
End With
'间隔一秒[这个不是很准，可以使用API]
tmrSetCaption.Interval = 1000

End Sub

Private Sub tmrSetCaption_Timer()
With Me
Caption = Time()
End With
End Sub

Private Sub Timer_Timer() '添加一个Timer控件
Timer.Interval = 1000 '频率设置
Form1.Caption = Now '获取当前系统时间
End Sub
这样就可以的了··你试试看~~

或者用 Caption=time（）