在VB中编写程序以保护文件，可以采用以下方法：
使用文件锁定
在程序运行时，使用`Open`语句以二进制读取模式打开文件，并添加锁定。这样，文件在程序运行期间只能被读取，不能被修改或删除。
示例代码：
```vb
Open "完整的文件名" For Binary Access Read Lock Read As 1
' 文件操作代码
Close 1
```
文件加密
可以使用简单的加密算法（如异或运算）对文件内容进行加密，并在程序结束时解密。这样，即使文件被非法访问，也无法轻易读取其内容。
示例代码：
```vb
Option Explicit
Dim i As Long
Dim databuff As Byte ' 定义数组用于存放文件内容
Dim addbuff As Byte ' 定义数组用于存放加密后的文件内容
Dim password As Byte ' 定义数组用于存放密码的ASCII值
Dim filename As String
Private Sub Check1_Click（）
' 加密文件
For i = 1 To Len（databuff）
databuff（i） = databuff（i） Xor password（i Mod Len（password））
Next i
' 保存加密后的文件
End Sub
Private Sub Check2_Click（）
' 解密文件
For i = 1 To Len（addbuff）
databuff（i） = addbuff（i） Xor password（i Mod Len（password））
Next i
' 保存解密后的文件
End Sub
```
监控文件系统
使用API函数监控文件系统的删除和修改操作，以防止文件被非法修改或删除。
示例代码（需要引用Windows API）：
```vb
Private Declare Function FindFirstChangeNotification Lib "kernel32" （ByVal lpPathName As String, ByVal dwFlags As Long, ByVal lpBufferSize As Long） As Long
Private Declare Function FindNextChangeNotification Lib "kernel32" （ByVal hDir As Long, ByVal dwFlags As Long, ByVal lpBufferSize As Long） As Long
Private Declare Function CloseHandle Lib "kernel32" （ByVal hObject As Long） As Long
Dim hDir As Long
hDir = FindFirstChangeNotification（"C:\路径\到\文件", 0, 0）
If hDir <> 0 Then
' 监控文件变化
Do
' 处理文件变化
Sleep 1000 ' 延迟1秒
Loop While True
CloseHandle hDir
End If
```
屏幕保护程序
虽然屏幕保护程序主要用于防止屏幕损伤，但也可以通过设置窗体属性、隐藏鼠标光标和检测鼠标移动等操作来实现一定程度的文件保护。
示例代码：
```vb
Option Explicit
Dim quitflag As Boolean ' 声明终止程序标志变量
Dim lleft ' 声明隐藏或显示鼠标的API函数
Private Declare Function ShowCursor Lib "user32" （ByVal bShow As Long） As Long
Private Declare Function GetCursorPos Lib "user32" （ByVal lpPoint As POINT） As Long
Private Sub Form_Load（）
ShowCursor False ' 隐藏鼠标光标
End Sub
Private Sub Form_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
' 检测鼠标移动
End Sub
Private Sub Form_QueryClose（Cancel As Integer）
quitflag = True ' 设置退出标志
End Sub
Private Sub Form_Terminate（）
ShowCursor True ' 显示鼠标光标
End Sub
```
这些方法可以帮助你在VB中实现文件保护功能。根据具体需求选择合适的方法，并确保在程序结束时正确释放资源。
