在VB（Visual Basic）中实现延时，可以使用以下几种方法：
使用Windows API函数Sleep ```vb
Private Declare Sub Sleep Lib "kernel32" （ByVal dwMilliseconds As Long）
Private Sub Command1_Click（）
Text1 = "sleep begin"
Sleep 3000 ' 暂停3000毫秒
Text1 = "sleep end"
End Sub
```
注意：
使用Sleep函数时，程序会在指定的时间内暂停执行，期间不会响应用户操作。这种方法虽然简单，但可能会导致程序界面冻结，不适合需要实时响应用户输入的场景。
使用Timer控件
```vb
Private Sub Command2_Click（）
Dim Savetime As Date
Timer1.Enabled = False
Timer1.Interval = 1000 ' 设置间隔为1000毫秒（1秒）
Savetime = Now
Timer1.Enabled = True
Private Sub Timer1_Timer（）
Dim i As Integer
i = i - 1000
Text1.Text = "剩余时间： " & i & "秒"
If i <= 0 Then
Timer1.Enabled = False
Text1.Text = "延时结束"
End If
End Sub
End Sub
```
注意： 使用Timer控件可以在延时期间保持程序的响应性，因为Timer控件的事件处理程序会在指定的时间间隔内执行，而不会阻塞主线程。使用VB.NET中的DelayTime函数
```vb
Sub DelayTime（ByVal tmsMilliseconds As Integer）
Dim st As Long = Now.Ticks
Dim st1 As Long = Now.Ticks
Dim st2 As Integer = 0
Do
st2 = CInt（（st1 - st） / 10000）
Loop While st2 < tmsMilliseconds
End Sub
```
注意： 此方法适用于VB.NET，而不是VB6或VBA。如果您使用的是VB.NET，可以直接调用DelayTime函数来实现延时。 建议 选择合适的方法
考虑资源占用：Timer控件相对较为轻量，适合长时间延时。Sleep函数在延时期间会占用较多的CPU资源，因此不适合需要高响应性的应用。
希望这些方法能帮助您实现所需的延时功能。