在VB6（Visual Basic 6）中，你可以使用Windows API函数来实现控制台程序的定时功能。以下是一个简单的例子，演示了如何使用`SetTimer`函数来创建一个定时器，每隔一定时间执行一个特定的过程。
你需要一个窗体（Form），然后添加以下代码：
```vb
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Private Sub Form_Load()
' 设置定时器，每隔1000毫秒（1秒）调用TimerProc函数
SetTimer hwnd, 1, 1000, AddressOf TimerProc
End Sub
Private Sub Form_Unload(Cancel As Integer)
' 程序关闭时清除定时器
KillTimer hwnd, 1
End Sub
' 定时器回调函数
Private Sub TimerProc()
' 在这里添加你想要定时执行的代码
MsgBox "定时器触发"
End Sub
```
在上面的代码中：
`SetTimer` 函数用于设置定时器。它接受四个参数：窗体的句柄（`hwnd`），定时器的ID（这里使用1），超时时间（以毫秒为单位，这里设置为1000，即1秒），以及回调函数的地址（这里传递了`TimerProc`函数的地址）。
`KillTimer` 函数用于删除定时器。
`TimerProc` 是一个回调函数，当定时器到期时会被调用。在这个例子中，它显示一个消息框。
确保将`TimerProc`函数中的代码替换为你想要定时执行的代码。
这个例子将创建一个定时器，每秒触发一次`TimerProc`函数，显示一个消息框。你可以根据需要调整定时器的间隔和`TimerProc`函数中的代码。
