在Visual Basic（VB）中显示当前时间有多种方法，以下是几种常见的方法：
方法一：使用Date、Time和MsgBox函数
你可以使用`Date`、`Time`和`MsgBox`函数来获取并显示当前日期和时间。
```vb
Dim currentDate As Date
Dim currentTime As Date
currentDate = Date
MsgBox "当前日期是： " & currentDate
currentTime = Time
MsgBox "当前时间是： " & currentTime
```
方法二：使用Now函数和Label控件
你可以使用`Now`函数来获取当前日期和时间，并将其显示在Label控件中。
```vb
Private Sub Form_Load（）
Dim currentTime As Date
currentTime = Now
Label1.Text = "当前时间是： " & Format（currentTime, "hh:mm:ss"）
End Sub
```
方法三：使用Timer控件
你可以使用Timer控件定期更新时间显示。
```vb
Private Sub Form_Load（）
Timer1.Interval = 1000 ' 设置Timer1控件每秒触发一次
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer（）
Label1.Text = "当前时间是： " & Format（Now, "hh:mm:ss"）
End Sub
```
方法四：使用Format函数
你可以使用`Format`函数来格式化时间，并以更友好的方式显示。
```vb
Private Sub Form_Load（）
Label1.Text = "当前时间是： " & Format（Now, "hh:mm:ss"）
End Sub
```
方法五：使用Timer控件和Label控件动态显示时间
你可以使用一个Timer控件和一个Label控件来动态显示系统时间，并且可以设置时间格式。
```vb
Private Sub Form_Load（）
Dim currentTime As Date
currentTime = Now
Label1.Text = "当前时间是： " & Format（currentTime, "hh:mm:ss"）
Timer1.Interval = 1000 ' 设置Timer1控件每秒触发一次
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer（）
Label1.Text = "当前时间是： " & Format（Now, "hh:mm:ss"）
End Sub
```
建议
选择哪种方法取决于你的具体需求和应用场景。如果你只需要在窗体加载时显示一次当前时间，可以使用`Now`函数和Label控件。如果你需要实时更新时间显示，建议使用Timer控件。