在Visual Basic（VB）中显示当前时间有多种方法，以下是几种常见的方法：
使用Date、Time和Now函数
`Date` 函数返回当前系统日期。
`Time` 函数返回当前系统时间。
`Now` 函数同时返回当前系统的日期和时间。
示例代码：
```vb
Dim currentDate As Date
currentDate = Date
MsgBox "当前日期是： " & currentDate
Dim currentTime As Date
currentTime = Time
MsgBox "当前时间是： " & currentTime
Dim currentDateTime As Date
currentDateTime = Now
MsgBox "当前日期和时间是： " & currentDateTime
```
使用Format函数
`Format` 函数用于格式化日期和时间。你可以指定不同的格式代码来控制显示的格式，例如12小时制或24小时制，以及是否显示秒等。
示例代码：
```vb
Dim currentDateTime As Date
currentDateTime = Now
label1.Caption = Format（currentDateTime, "hh:mm:ss"） ' 24小时制，带秒
' label1.Caption = Format（currentDateTime, "hh点mm分ss秒"） ' 12小时制，带秒
' label1.Caption = Format（currentDateTime, "yyyy-MM-dd HH:mm:ss"） ' 带有年、月、日的完整格式
```
使用Timer控件
`Timer` 控件可以用于定期更新时间显示。你可以设置一个定时器，每秒触发一次，并更新标签或文本框中的时间显示。
示例代码：
```vb
Private ThisTime As Date
Private Sub Form1_Load（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MyBase.Load
Timer1.Interval = 1000 ' 设置计时器的间隔为1秒
Timer1.Enabled = True ' 启用定时器
End Sub
Private Sub Timer1_Tick（sender As Object, ByVal e As System.EventArgs）
ThisTime = ThisTime.AddSeconds（-1） ' 每秒减少1秒
Label1.Text = Format（ThisTime, "hh:mm:ss"） ' 更新标签显示的时间
End Sub
```
这些方法可以帮助你在VB中实现不同方式的时间和日期显示。根据你的具体需求，选择最适合你的方法即可。