在VB（Visual Basic）中设置程序时间可以通过以下几种方法：
使用Timer控件
创建一个Timer控件，并设置其Interval属性为所需的秒数。Interval属性表示Timer控件事件触发的时间间隔，单位为毫秒。例如，设置Interval为1000毫秒（1秒）意味着Timer控件将每隔1秒触发一次事件。
使用Date和Time函数
使用Date函数获取当前系统日期，使用Time函数获取当前系统时间。这些函数返回的日期和时间可以作为程序中显示或计算时间的依据。
使用DateTime对象
在VB中，可以使用DateTime对象来表示和操作日期和时间。通过DateTime对象的方法，可以获取、设置和格式化日期和时间。
使用定时器事件
在定时器的事件处理程序中，可以更新标签或其他控件以显示当前时间。通过在定时器事件触发时更新时间，可以实现动态显示时间的功能。
示例代码
```vb
Private Sub Form_Load（）
' 初始化Timer控件
Timer1.Enabled = True
Timer1.Interval = 1000 ' 设置间隔为1000毫秒（1秒）
End Sub
Private Sub Timer1_Timer（）
' 更新标签显示当前时间
Label1.Text = Now.ToString（"HH:mm:ss"）
End Sub
```
在这个示例中，当Form加载时，Timer1控件被启用，并且其Interval属性设置为1000毫秒。每次Timer1控件触发事件时，都会更新Label1控件以显示当前的时间。
建议
确保在程序启动时启用Timer控件，并在不需要时禁用它，以避免不必要的资源消耗。
如果需要更精确的时间控制，可以考虑使用更高精度的时间函数或定时器。
对于需要长时间运行的任务，建议将程序设置为系统服务或使用其他更稳定的时间管理方法。