在VB中，可以使用以下方法来获取窗体的句柄：
Dim hWnd As IntPtr = Me.Handle
Imports System.Runtime.InteropServices
然后使用以下代码来调用FindWindow函数：
Dim windowTitle As String = "窗体标题" '替换为实际窗体的标题
Dim hWnd As IntPtr = FindWindow(Nothing, windowTitle)
<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
End Function
在上面的代码中，通过传递窗体的标题给FindWindow函数，可以获取指定窗体的句柄。
请注意，第二种方法需要导入Win32 API函数声明，并且只适用于在当前应用程序之外的其他窗体。如果是在同一个应用程序中获取窗体的句柄，建议使用第一种方法。
