在VB（Visual Basic）中设置提醒小程序，可以通过以下几种方法实现：
方法一：使用Windows任务计划程序
创建一个批处理文件 （.bat），并在其中编写代码来启动提醒小程序。使用Windows任务计划程序
来定期运行这个批处理文件。
示例代码（batch file）：
```batch
@echo off
start C:\path\to\your\reminder_program.vbs
```
将上述代码保存为`reminder.bat`，并将其放置在`C:\Windows\System32`目录下，这样它就可以在系统启动时自动运行。
方法二：使用VBScript编写定时提醒程序
编写VBScript代码来实现定时提醒功能。
使用Windows任务计划程序来定期运行这个VBScript文件。
示例VBScript代码（Ring.vbs）：
```vbscript
Dim MyTime, OldTime, difTime, midTime
MyTime = Now
OldTime = Now
difTime = DateDiff（"h", OldTime, MyTime）
If difTime >= 1 Then
midTime = Now
If difTime >= 9 Then
MsgBox "八小时工作时间已经到了，可以去打卡了"
Exit Do
End If
MsgBox "老大，您已经工作了一个小时了，起来活动活动吧"
End If
WScript.Sleep 30000 ' 暂停30秒
Loop
```
将上述代码保存为`Ring.vbs`，并将其放置在`C:\Windows\System32`目录下，这样它就可以在系统启动时自动运行。
方法三：使用第三方工具
使用第三方提醒工具，如Google 日历、Outlook 等来设置提醒。
编写一个简单的VB程序来读取这些提醒事件并显示在屏幕上。
示例代码（VB）：
```vbscript
Dim objShell, objNotify
Set objShell = CreateObject（"WScript.Shell"）
Set objNotify = objShell.NotifyIcon
objNotify.Icon = "C:\path\to\your\icon.ico"
objNotify.Text = "提醒小程序"
objNotify.Visible = True
Do While True
WScript.Sleep 60000 ' 每分钟检查一次
' 检查是否有新的提醒
' 如果有新的提醒，显示提示框
Loop
```
将上述代码保存为`reminder.vbs`，并将其放置在`C:\Windows\System32`目录下，这样它就可以在系统启动时自动运行。
建议
选择合适的方法：
根据你的需求和系统配置选择最合适的方法。
定期更新和维护：
确保提醒程序能够正常运行，并定期检查其功能和性能。
考虑用户体验：
确保提醒方式（如声音、图标等）能够引起用户的注意，并且不会干扰到用户的工作。