[求助]请问这段代码怎么转到狐表里面？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

全局代码

Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Public Structure RECT
        Public left As Int32
        Public top As Int32
        Public right As Int32
        Public bottom As Int32
    End Structure
Public Sub Button1_Click()
        Dim p1 As RECT
        Dim hwnd As IntPtr = FindWindow(Nothing, "无标题 - 记事本")
        If hwnd <> IntPtr.Zero Then
            GetWindowRect(Me.Handle, p1)
            MsgBox(p1.right) '获取到left ，top ，right ，bottom
        Else
            MsgBox("未找到窗口")
        End If

    End Sub

调用

Button1_Click()

主题：[求助]请问这段代码怎么转到狐表里面？