在Visual Basic（VB）中显示当前时间，可以使用以下几种方法：
方法一：使用Timer控件和Label控件
1. 在窗体上添加一个Label控件和一个Timer控件。
2. 设置Timer控件的Interval属性为1000毫秒（1秒），并启用Timer控件。
3. 在Timer控件的Timer事件中，更新Label控件的Caption属性为当前时间。
```vb
Private Sub Form_Load（）
' 初始化Timer控件
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer（）
' 更新Label控件显示当前时间
Label1.Caption = Time$
End Sub
```
方法二：使用Now函数
1. 在窗体加载事件中，使用Now函数获取当前日期和时间，并显示在Label控件中。
```vb
Private Sub Form_Load（）
' 设置Label控件的字体大小和颜色
Label1.FontSize = 30
Label1.ForeColor = vbBlue
' 获取并显示当前时间
Label1.Caption = Time$
End Sub
```
方法三：使用Format函数格式化时间
1. 在窗体加载事件中，使用Format函数将当前时间格式化为标准格式，并显示在Label控件中。
```vb
Private Sub Form_Load（）
' 设置Label控件的字体大小和颜色
Label1.FontSize = 30
Label1.ForeColor = vbBlue
' 获取当前时间并格式化显示
Label1.Caption = Format（Now, "YYYY年MM月DD号 hh点mm分ss秒 星期" & Weekday（Now） - 1）
End Sub
```
方法四：使用MsgBox函数显示当前时间
1. 使用MsgBox函数弹出一个对话框，显示当前日期和时间。
```vb
Private Sub Form_Load（）
' 显示当前日期和时间
MsgBox "当前日期和时间为： " & Now
End Sub
```
方法五：使用DateTime类
1. 在窗体加载事件中，使用DateTime类获取当前日期和时间，并将其转换为字符串显示在Label控件中。
```vb
Private Sub Form1_Load（sender As Object, e As EventArgs） Handles MyBase.Load
' 获取并显示当前时间
Label1.Text = DateTime.Now.ToString（）
End Sub
```
以上方法可以根据具体需求选择使用。如果需要实时更新时间，建议使用方法一或方法二。如果需要更高级的格式化或自定义显示，可以使用方法三或方法五。