在VB（Visual Basic）中，要创建一个程序来注销小程序，你可以使用Windows API函数。以下是一个简单的示例代码，展示了如何使用VB.NET实现注销功能：
```vb.net
Imports System.Runtime.InteropServices
Module Module1
Sub Main（）
' 调用Windows API函数注销当前用户
注销（）
End Sub
' 声明Windows API函数
Private Declare Function ExitWindows Lib "user32" Alias "ExitWindowsA" （ByVal uFlags As Integer） As Boolean
' 定义注销函数
Private Sub 注销（）
' 设置退出代码为注销
Dim exitCode As Integer = 42
' 调用ExitWindows函数注销当前用户
If ExitWindows（exitCode） Then
MessageBox.Show（"注销成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information）
Else
MessageBox.Show（"注销失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error）
End If
End Sub
End Module
```
代码解释：
Imports System.Runtime.InteropServices：
导入必要的命名空间，以便使用Windows API函数。
Private Declare Function ExitWindows Lib "user32" Alias "ExitWindowsA" （ByVal uFlags As Integer） As Boolean：
声明Windows API函数`ExitWindows`，该函数用于注销当前用户。
Private Sub 注销（）：
定义一个名为`注销`的子程序，用于执行注销操作。
Dim exitCode As Integer = 42：
定义一个整数变量`exitCode`，并将其值设置为42，这是注销操作对应的退出代码。
If ExitWindows（exitCode） Then：
调用`ExitWindows`函数，并检查其返回值。如果返回`True`，则表示注销成功；否则，表示注销失败。
MessageBox.Show（"注销成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information）：
如果注销成功，显示一个消息框提示用户。
MessageBox.Show（"注销失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error）：
如果注销失败，显示一个消息框提示用户。
注意事项：
运行此程序需要管理员权限，因为注销操作需要较高的权限。
彻底禁用注销功能可能会影响系统的正常使用，请谨慎使用。
希望这个示例代码能帮助你实现注销小程序的功能。