在VB编程中，可以通过修改Windows注册表来实现计算机名称的更改。以下是一个基本的步骤和示例代码，用于在VB中更改计算机名称：
获取当前计算机名称
使用`GetComputerName`函数获取当前计算机的名称。
修改注册表
通过`SetComputerNameEx`函数修改计算机名称。需要使用`kernel32.dll`库中的`SetComputerNameEx`函数。
重启计算机
修改计算机名称后，通常需要重启计算机以使更改生效。
```vb
Option Explicit
Private Declare Function SetComputerNameEx Lib "kernel32" （ _
ByVal lpComputerName As String, _
ByVal lpDomainName As String, _
ByVal dwFlags As Long, _
ByVal dwReserved As Long, _
ByVal lpServerName As String, _
ByVal dw茶花 As Long, _
ByVal dwLevel As Long, _
ByVal dwCount As Long, _
ByVal lpComputerNameBuff As String） As Long
Private Declare Function GetComputerName Lib "kernel32" （ _
ByVal lpBuffer As String, _
ByVal dwBufferSize As Long） As Long
Private Sub Command1_Click（）
Dim newName As String
newName = InputBox（"请输入新的计算机名称：", "更改计算机名称"）
If newName <> "" Then
' 获取当前计算机名称
Dim currentName As String
currentName = GetComputerName（vbNullString, 0）
MsgBox "当前计算机名称： " & currentName
' 修改计算机名称
Dim result As Long
result = SetComputerNameEx（0, vbNullString, 0, 0, newName, 0, 0, 0, 0）
If result = 0 Then
MsgBox "计算机名称更改成功!"
Else
MsgBox "计算机名称更改失败!"
End If
Else
MsgBox "请输入有效的计算机名称!"
End If
End Sub
```
注意事项：
权限：
修改计算机名称需要管理员权限。
重启：
更改计算机名称后，通常需要重启计算机以使更改生效。
错误处理：
在实际应用中，应添加更多的错误处理代码，以处理可能出现的各种错误情况。
参考文档：
1. [更改计算机名称必须重新启动计算机才能生效!](http://www.tesoftware.net/code/other/226.htm)
2. [vb_visualbasic 在Win 95中，电脑有一个名字｡运行regedit，在“ HKEY-LOCAL-MACHI NE/System /CurrentControlSet/control/Com puterNam e/Com puterNam e”中将发现 “Com puterNam e”=“Default”( 或其他字符串)， 在regedit下能够查看和修改这个名字｡我们还可](http://www.tesoftware.net/code/other/226.htm)
通过上述步骤和示例代码，你可以在VB编程中实现计算机名称的更改。请确保在运行代码时具有管理员权限，并在更改名称后重启计算机以使更改生效。