在VB中，可以使用FindWindow函数来根据进程ID获取窗体句柄。以下是一个示例：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

' 根据进程ID获取窗体句柄

Function GetWindowHandle(ByVal processId As Long) As Long

    Dim handle As Long

    handle = FindWindow(vbNullString, vbNullString)

    Do While handle <> 0

        Dim pid As Long

        GetWindowThreadProcessId handle, pid

        If pid = processId Then

            GetWindowHandle = handle

            Exit Function

        End If

        handle = FindWindowEx(0, handle, vbNullString, vbNullString)

    Loop

    GetWindowHandle = 0

End Function

在这个示例中，我们首先声明了FindWindow函数，并定义了一个名为GetWindowHandle的函数，该函数接受一个进程ID作为参数，返回窗体句柄。

在GetWindowHandle函数中，我们首先使用FindWindow函数获取第一个顶级窗口的句柄，然后使用GetWindowThreadProcessId函数获取该窗口所属的进程ID。如果该进程ID与函数参数相等，则返回该窗口的句柄。否则，继续查询下一个顶级窗口，直到找到匹配的窗口或遍历完所有顶级窗口。

请注意，在使用FindWindow函数时可以指定窗口类名和窗口标题等参数来缩小查找范围。在实际使用中，需要根据具体情况选择合适的参数值。