在WinForms中，可以使用Handle属性来获取窗口句柄。以下是一个示例：

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' 获取窗口句柄

        Dim handle As IntPtr = Me.Handle

        ' 将窗口句柄转换为十六进制字符串并显示

        Dim hexString As String = "0x" & Hex(handle.ToInt32())

        MsgBox(hexString)

    End Sub

End Class

在这个示例中，我们首先定义了一个名为handle的IntPtr变量，并将其设置为当前窗口的句柄。然后，我们使用ToInt32()方法将句柄转换为整数类型，并使用Hex()函数将其转换为十六进制字符串。最后，我们将该字符串添加前缀“0x”，以符合Windows系统对窗口句柄的编码格式。

请注意，在使用窗口句柄时需要考虑安全和权限等问题。例如，使用不正确的窗口句柄可能会导致程序崩溃或异常错误。建议在使用时将其作为一种辅助手段，并通过其他方式确保操作的合法性和正确性。