在Visual Basic（VB）中显示当前时间，你可以使用`Date`、`Time`或`Now`函数来获取系统日期和时间，并使用`MsgBox`、`Label`控件或`Timer`控件来显示它们。以下是几种常见的方法：
使用`Date`和`MsgBox`函数显示当前日期：
```vb
Dim currentDate As Date
currentDate = Date
MsgBox "当前日期是： " & currentDate.ToString（）
```
使用`Time`和`MsgBox`函数显示当前时间：
```vb
Dim currentTime As Date
currentTime = Time
MsgBox "当前时间是： " & currentTime.ToString（）
```
使用`Now`函数和`MsgBox`函数同时显示当前日期和时间：
```vb
Dim currentDateTime As Date
currentDateTime = Now
MsgBox "当前日期和时间是： " & currentDateTime.ToString（）
```
在窗体上添加一个`Label`控件，并使用`Timer`控件每秒更新时间：
```vb
Private Sub Form_Load（）
Dim timer As New Timer
timer.Interval = 1000 ' 设置计时器间隔为1000毫秒（1秒）
timer.Enabled = True ' 启用计时器
AddHandler timer.Tick, AddressOf UpdateTime ' 绑定Tick事件处理器
End Sub
Private Sub UpdateTime（）
Label1.Text = Now.ToString（） ' 更新标签文本为当前时间
End Sub
```
使用`Format`函数格式化时间，并显示在`Label`控件上：
```vb
Private Sub Form_Load（）
Label1.Text = Format（Now, "yyyy年MM月dd号hh点mm分ss秒"）
End Sub
```
如果你想要在VB6.0中显示时间，可以使用`SystemVar`函数或者插入一个系统变量框：
```vb
' 方法1： 使用SystemVar函数
text1.Text = "[SystemVar（CurrentDateTime）:yyyy-MM-dd]"
' 方法2： 插入一个系统变量框
' 设置系统变量框为当前日期时间
```
选择适合你需求的方法，并根据你的VB开发环境进行相应的调整。如果你正在使用VB.NET，那么使用`DateTime.Now`和`Label.Text`属性来更新时间会更加简单：
```vb
Private Sub Form1_Load（sender As Object, e As EventArgs） Handles MyBase.Load
Timer1.Interval = 1000 ' 设置计时器间隔为1000毫秒（1秒）
Timer1.Enabled = True ' 启用计时器
AddHandler Timer1.Tick, AddressOf UpdateTime ' 绑定Tick事件处理器
End Sub
Private Sub UpdateTime（）
Label1.Text = DateTime.Now.ToString（"yyyy年MM月dd号hh点mm分ss秒"） ' 更新标签文本为当前时间
End Sub
```
确保你的VB环境已经正确设置，并且你已经添加了必要的控件（如`Label`和`Timer`）到你的窗体上。
