在Visual Basic（VB）中，有几种方法可以实现定时执行程序：
使用Shell函数和at命令
你可以使用`Shell`函数和`at`命令来定时执行程序。例如，以下代码将在每天的14:52执行`.exe`文件：
```vb
Shell（"at 14:52 /every:M *.exe"）
```
这种方法适用于Windows操作系统，并且需要`.exe`文件在系统启动时已经运行，或者在后台运行。
使用Timer控件
在VB中，可以通过添加一个`Timer`控件来实现定时器。设置`Interval`属性来指定定时器的时间间隔，并编写`Tick`事件的处理程序来实现定时执行的功能。例如：
```vb
Private Sub Form_Load（）
' 设置定时器的时间间隔为100毫秒（即每100毫秒触发一次Tick事件）
Timer1.Interval = 100
' 启动定时器
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick（）
' 定时器的Tick事件处理程序
' 在这里编写需要定时执行的代码
End Sub
```
这种方法适用于需要高精度定时的场合，并且可以通过设置不同的时间间隔来实现每天、每小时或每分钟执行一次程序。
使用Windows API函数
对于更高精度的定时需求，可以使用Windows API函数如`SetTimer`和`TimerProc`。例如：
```vb
Private Declare Sub SetTimer Lib "kernel32" （ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal dwMilliseconds As Long, ByVal lpfnTimerProc As Long）
Private Declare Function KillTimer Lib "kernel32" （ByVal hWnd As Long, ByVal nIDEvent As Long） As Long
Private lngTimerID As Long
Private Sub Form_Load（）
lngTimerID = SetTimer（0, 0, 200, AddressOf TimerProc）
If lngTimerID = 0 Then
MsgBox "Timer not created. Ending Program"
Exit Sub
End If
BlnTimer = True
Command1.Caption = "Stop Timer"
End Sub
Private Sub TimerProc（ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long）
' 定时器事件处理程序
End Sub
Private Sub Command1_Click（）
' 停止定时器
KillTimer 0, lngTimerID
End Sub
```
这种方法可以实现非常精确的定时，但需要更多的编程工作，并且对多线程的支持可能有限。
建议
选择合适的方法：根据你的具体需求选择最合适的方法。如果需要高精度定时，并且对多线程支持没有特别要求，使用Windows API函数是一个好选择。如果需要简单地在特定时间执行一次任务，使用`Shell`函数和`at`命令可能更简单。
测试和调试：在实现定时任务后，务必进行充分的测试和调试，确保定时任务能够按照预期执行。