在Visual Basic（VB）中，你可以使用API函数`FindWindow`和`PostMessage`来关闭其他程序。以下是一个示例代码，展示了如何关闭标题为"Calculator"的窗口：
```vb
Dim winHwnd As Long
Dim RetVal As Long
' 使用FindWindow函数查找标题为"Calculator"的窗口句柄
winHwnd = FindWindow（vbNullString, "Calculator"）
' 如果找到了窗口（winHwnd不为0），则使用PostMessage函数发送WM_CLOSE消息
If winHwnd <> 0 Then
RetVal = PostMessage（winHwnd, WM_CLOSE, 0, 0）
Debug.Print "Sent WM_CLOSE message to window with handle: " & winHwnd
Else
Debug.Print "Window not found."
End If
```
代码解释：
FindWindow函数：
用于查找具有指定窗口类名和窗口名称的窗口句柄。
`vbNullString`：表示类名参数为空，表示查找所有窗口。
`"Calculator"`：表示窗口名称参数，表示查找标题为"Calculator"的窗口。
PostMessage函数：
用于向指定窗口发送消息。
`winHwnd`：从`FindWindow`函数获取的窗口句柄。
`WM_CLOSE`：表示要发送的消息，其值为`&H10`。
`0`和`0`：表示消息的附加参数和消息的额外信息。
注意事项：
确保在调用`FindWindow`和`PostMessage`函数之前，程序具有足够的权限来访问和操作目标窗口。
如果目标窗口没有响应`WM_CLOSE`消息，可能需要使用更强制的方法，如`SendMessage`或直接结束进程。
替代方法：
如果你需要关闭特定进程，可以使用`Process`对象和`Terminate`方法。以下是一个示例代码：
```vb
Dim proc As Object
' 创建一个Process对象
Set proc = CreateObject（"WScript.Shell"）.Exec（"notepad.exe"）
' 等待一段时间，确保进程启动
Do While proc.Status = 0
Sleep 1000
Loop
' 终止进程
proc.Terminate
```
代码解释：
CreateObject（"WScript.Shell"）.Exec：
用于启动一个外部进程，例如记事本。
proc.Status：
检查进程是否已启动。
proc.Terminate：
终止进程。
请根据你的具体需求选择合适的方法来关闭其他程序。
