在VB中查找外部程序的窗口，可以使用Windows API函数`FindWindow`。以下是一个基本的示例，展示了如何使用`FindWindow`函数通过窗口标题来获取窗口句柄：
```vb
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" （ByVal lpClassName As String, ByVal lpWindowName As String） As Long
```
在这个函数中，`lpClassName`是窗口类的名称，`lpWindowName`是窗口的标题。如果找到了窗口，`FindWindow`函数将返回窗口句柄；如果未找到，则返回0。
```vb
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" （ByVal lpClassName As String, ByVal lpWindowName As String） As Long
Private Sub Command1_Click（）
Dim WindowHandle As Long
Dim WindowTitle As String
' 设置要查找的窗口标题
WindowTitle = "外部程序的窗口标题"
' 调用FindWindow函数查找窗口
WindowHandle = FindWindow（vbNullString, WindowTitle）
' 检查是否找到了窗口
If WindowHandle = 0 Then
MsgBox "无法找到需要的窗口句柄"
Else
MsgBox "找到窗口，句柄为： " & WindowHandle
End If
End Sub
```
在这个示例中，你需要将`WindowTitle`变量的值设置为外部程序窗口的标题。然后，调用`FindWindow`函数并检查返回的窗口句柄。
注意事项
窗口标题：
确保你输入的窗口标题是正确的，因为`FindWindow`函数会根据标题来查找窗口。
窗口类名：
如果你知道外部程序的窗口类名，也可以使用`lpClassName`参数来查找窗口。
全屏程序：
如果外部程序是全屏运行的，可能需要额外的逻辑来判断和操作窗口。
通过这些步骤，你应该能够在VB中成功找到外部程序的窗口句柄。