vb怎么在窗体上做时间显示？

VB可使用Timer控件实现在窗体的标签控件中显示系统时间等信息。

Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

实现代码：

Private Sub Form_Load()
    Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
   If lblTime.Caption <> CStr(Time) Then
      lblTime.Caption = "后台服务：连接正常" & "  系统日期：" & Date & "  系统时间：" & Time
   End If
End Sub

实时的时间显示需要一个计时器Timer,，图显示的应该是状态栏，在Timer事件里改写状态栏的内容。用Now,Time等等函数获取的就是本机的时间。
记录要有记录首先要保存这个时间，即表要增加专门的字段来保存这个时间。

假设有一个标签label1和一个按钮command1外加一个列表框list1还有最重要的计时器timer1

.........
timer的interval设置为100
代码

label1.caption="当前时间"+time

按钮的代码

list1.additem "在"+time+"我卖出了一瓶红酒"

不用计时器 ，给一个变量aa=time$就行 ，如果有时间比较，才用时间控件

这个是状态栏控件、 关于记录时间 那就要在数据库增加 交易时间字段 设置为默认：now