在VB（Visual Basic）中设置程序过期可以通过以下几种方法：
方法一：使用注册表记录首次运行时间和过期时间
读取注册表：
在程序启动时，读取注册表中记录的首次运行时间和过期时间。
计算时间差：
计算当前时间与首次运行时间的差值，如果差值大于30天，则程序过期。
更新注册表：
如果程序未过期，更新注册表中的过期时间。
```vb
Private Sub Form_Load（）
Dim FirstRun As Date
Dim ExpireDate As Date
Dim RemainDays As Integer
' 读取注册表中的首次运行时间和过期时间
FirstRun = GetSetting（"MyApp", "Startup", "FirstRun"）
ExpireDate = GetSetting（"MyApp", "Startup", "ExpireDate"）
' 如果注册表中没有首次运行时间，则记录当前时间为首次运行时间
If FirstRun = "" Then
FirstRun = Date
SaveSetting "MyApp", "Startup", "FirstRun", FirstRun
End If
' 如果注册表中没有过期时间，则设置过期时间为首次运行时间加上30天
If ExpireDate = "" Then
ExpireDate = FirstRun + 30
SaveSetting "MyApp", "Startup", "ExpireDate", ExpireDate
End If
' 计算剩余天数
RemainDays = DateDiff（"d", FirstRun, Now）
' 如果剩余天数小于等于30天，则显示剩余天数并继续运行程序
If RemainDays <= 30 Then
MsgBox "软件已经使用 " & RemainDays & " 天"
Else
MsgBox "软件试用过期，请购买正式版"
End
End If
End Sub
```
方法二：使用文件记录时间
创建文件：
在程序首次运行时，创建一个文件并记录当前时间。
读取文件：
在程序每次启动时，读取文件中的时间，并与当前时间比较。
更新文件：
如果程序未过期，更新文件中的时间为当前时间加上30天。
```vb
Private Sub Form_Load（）
Dim FileName As String
Dim FirstRun As Date
Dim ExpireDate As Date
Dim RemainDays As Integer
' 设置文件名
FileName = "ProgramExpires.txt"
' 如果文件不存在，则记录当前时间为首次运行时间并保存到文件
If Dir（FileName） = "" Then
FirstRun = Date
SaveSetting "MyApp", "Startup", "FirstRun", FirstRun
SaveSetting "MyApp", "Startup", "ExpireDate", FirstRun + 30
Else
' 读取文件中的时间
Open FileName For Binary As 1
FirstRun = CDate（Input（LOF（1）, "0"））
ExpireDate = CDate（Input（LOF（1）, "0"））
Close 1
' 如果文件中的过期时间小于当前时间，则程序过期
If ExpireDate < Now Then
MsgBox "软件试用过期，请购买正式版"
End
Else
' 否则，更新文件中的过期时间
ExpireDate = FirstRun + 30
SaveSetting "MyApp", "Startup", "ExpireDate", ExpireDate
End If
End If
' 计算剩余天数
RemainDays = DateDiff（"d", FirstRun, Now）
' 如果剩余天数小于等于30天，则显示剩余天数并继续运行程序
If RemainDays <= 30 Then
MsgBox "软件已经使用 " & RemainDays & " 天"
Else
MsgBox "软件试用过期，请购买正式版"
End
End If
End Sub
```
方法三：使用网络时间服务器
获取网络时间：
通过HTTP请求获取网络时间服务器的时间。
比较时间：
将获取到的时间与程序中设置的过期时间进行比较。
提示过期：
如果当前时间大于过期时间，则提示用户程序已过期。