在Visual Basic （VB）中编写挂机软件通常涉及以下步骤：
新建项目
打开VB6或Visual Studio，创建一个新的项目。
选择合适的窗体类型，例如Form或UserControl。
完成控件布局
在窗体上添加所需的控件，如按钮、标签、图片等。
设置控件的属性，如大小、位置、颜色等。
为【锁定】按钮添加Click事件代码
双击按钮，在代码窗口中为其添加Click事件处理程序。
在事件处理程序中编写代码，实现锁屏功能。
添加Hook类，完成锁屏的主体功能
创建一个新的类，例如HookClass，用于处理系统钩子。
在HookClass中编写代码，实现屏幕锁定、解锁等功能。
将HookClass的实例添加到窗体中，并在需要时激活或停用钩子。
添加窗体Form2 （如果需要）：
如果需要更复杂的界面或功能，可以创建一个新的窗体Form2。
在Form2中添加所需的控件和代码，实现特定的功能。
程序打包与部署
使用VB自带的编译器将项目编译成可执行文件（.exe）。
将生成的可执行文件打包，以便在其他电脑上运行。
```vb
' Form1.frm
Private Hook As New HookClass
Private Sub Form1_Load（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MyBase.Load
' 窗体加载时激活钩子
Hook.Activate（）
End Sub
Private Sub Form1_Unload（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MyBase.Unload
' 窗体卸载时停用钩子
Hook.Deactivate（）
End Sub
Private Sub btnLock_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles btnLock.Click
' 锁定屏幕
Hook.LockScreen（）
End Sub
Private Sub btnUnlock_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles btnUnlock.Click
' 解锁屏幕
Hook.UnlockScreen（）
End Sub
```
请注意，这只是一个简单的示例，实际应用中可能需要更多的错误处理和功能实现。此外，编写挂机软件可能涉及法律和道德问题，请确保你的行为符合当地法律法规，并尊重他人的隐私和权益。