在Visual Basic（VB）中实现电脑关机的功能，可以通过调用Windows API函数或使用命令行指令。以下是两种常见的方法：
方法一：使用Windows API函数
```vb
Private Declare Function ExitWindowsEx Lib "user32" （ByVal uFlags As Long, ByVal dwReserved As Long） As Long
Private Sub Command1_Click（）
ExitWindowsEx EXW_POWEROFF, 0
End Sub
```
方法二：使用命令行指令
```vb
Private Sub Command1_Click（）
Shell "shutdown -s -t 0"
End Sub
```
方法三：使用VB脚本
```vb
Dim Obj
Set Obj = CreateObject（"WScript.Shell"）
Obj.Run "shutdown -s -t 0"
```
方法四：使用VB定时器
```vb
Dim Timer1 As Timer
Set Timer1 = New Timer
Timer1.Interval = 60000 ' 设置等待时间为60秒
Private Sub Form_Load（）
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer（）
Shell "shutdown -s -t 0"
End Sub
```
注意事项
确保你有足够的权限来执行关机操作。
如果你使用的是Windows 2000或更早版本，可能需要将`shutdown.exe`复制到`C:\Windows\System32`文件夹下。
在执行关机操作前，请确保保存所有工作并关闭所有程序。
以上代码示例均可以在VB的窗体应用程序中使用。请根据你的具体需求选择合适的方法。