编写VB锁程序可以通过多种方法实现，以下是几种常见的方法和示例代码：
方法一：简单的文本输入验证
这是一个简单的VB程序，当用户输入特定文本时显示“芝麻开门”，否则显示“错误”。
```vb
Private Sub Command1_Click（）
If Text2.Text = "123" Then
MsgBox "芝麻开门"
Else
MsgBox "错误"
End If
End Sub
Private Sub Command2_Click（）
Text2.Text = ""
End Sub
Private Sub Form_Load（）
Text2.Text = ""
End Sub
```
方法二：数字输入和排序
这个程序允许用户输入一系列数字，然后程序会找出这些数字中的最大值、最小值和平均值。
```vb
Private Sub Command1_Click（）
Dim x, y, z, a, jh, num（） As Double
x = 1
Do While x <= Len（Text1.Text）
x = InStr（x + 1, Text1.Text, ","）
If x = 0 Then
ReDim Preserve num（y + 1）
If y = 0 Then
num（y） = Val（Mid（Text1.Text, 1, x - 1））
Else
num（y） = Val（Mid（Text1.Text, z, x - 1））
End If
y = y + 1
End If
z = x + 1
Loop
For x = 0 To y
z = z + num（x）
For a = 0 To y
If num（x） < num（a） Then
jh = num（x）
num（x） = num（a）
num（a） = jh
End If
Next a
Next x
Label2.Caption = "最大值为： " & num（y） & " 最小值为： " & num（1） & " 平均数为： " & Format（z / y, ".00"）
End Sub
Private Sub Form_Load（）
Text1.Text = ""
Label1.Caption = "请在文本框中输入需要排序的数，用逗号分隔每个数字并以逗号结尾"
Label1.AutoSize = True
Label2.Caption = ""
End Sub
```
方法三：使用动态库和API
这个方法涉及使用动态库和系统API来实现更复杂的锁屏功能。
准备工作
复制CDLL5.dll和Module1到write的同一目录下。
编写写入数据的程序代码并运行。
```vb
' 示例代码（部分）
Private Declare Sub WriteLock Lib "CDLL5.dll" （ByVal address As Long, ByVal data As Long, ByVal password As String）
Sub WriteData（）
Dim data As Long
Dim password As String
data = 12345
password = "abcdefgh"
WriteLock 1, data, password
End Sub
```
加密过程
在VB环境下打开VBSample程序，运行几次以确保程序能正常运行。
确定加密位置，并在程序入口处进行加密。
使用工具ModPassw修改密码。
方法四：调用系统API实现锁屏
这个方法通过调用系统的API和HOOK操作来实现电脑锁定。
```vb
' 示例代码（部分）
Private Declare Sub SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" （ByVal idHook As Long, ByVal lpfn As Long, ByVal hMod As Long, ByVal dwThreadId As Long）
Private Declare Sub UnhookWindowsHookEx Lib "user32" （ByVal hhk As Long）
Sub LockComputer（）
Dim hhk As Long
hhk = SetWindowsHookEx（WH_CALLWNDPROC, AddressOf HookProc, GetModuleHandle（"user32"）, 0）
If hhk = 0 Then
MsgBox "无法安装钩子"
End If
End Sub
Private Sub HookProc（ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long）
' 钩子处理代码
End Sub
```
建议
安全性：对于涉及密码和系统操作的程序，务必确保安全性，避免硬编码密码，使用安全的存储和传输方式。
兼容性：确保代码在不同版本的VB和操作系统