Visual Basic.NET - Problemas con la api SetParent

Imports System.Runtime.InteropServices

Imports System.Threading

Public Class Formulario

    Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String,

                                                                             ByVal lpWindowName As String) As Int32

    Declare Auto Function SendMessage Lib "user32" (ByVal hwnd As IntPtr,

                                                    ByVal msg As Integer,

                                                    ByVal wParam As Integer,

                                                    ByVal lParam As Integer) As Integer

    Const WM_SYSCOMMAND As Integer = &H112

    Const SC_MINIMIZE As Integer = &HF020

    Const SC_MAXIMIZE As Integer = &HF030

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _

    Public Shared Function SetParent(ByVal hWndChild As IntPtr,

                                     ByVal hWndNewParent As IntPtr) As IntPtr

    End Function

    Private myHWND As IntPtr = IntPtr.Zero

    Private Sub scene_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        myHWND = FindWindow("ClassMAME32", "Mortal Kombat (rev 5.0 T-Unit 03/19/93)")

        Me.Text = myHWND.ToString

    End Sub

    Private Sub scene_Shown(sender As Object, e As EventArgs) Handles Me.Shown

        Thread.Sleep(500)

        SetParent(myHWND, Me.Handle)

        My.Application.DoEvents()

        Thread.Sleep(500)

        SendMessage(myHWND, WM_SYSCOMMAND, SC_MAXIMIZE, 0)

    End Sub

End Class

public partial class Form1 : Form

{

    [DllImport("user32.dll", SetLastError = true)] static extern IntPtr FindWindow(string lpClassName, string lpWindowName);

    [DllImport("user32.dll")] static extern IntPtr SetParent(IntPtr hWndChild, IntPtr hWndNewParent);

    [DllImport("user32.dll", SetLastError = true)] static extern bool GetWindowRect(IntPtr hwnd, ref RECT lpRect);

    [DllImport("user32.dll", SetLastError = true)] static extern bool MoveWindow(IntPtr hWnd, int X, int Y, int nWidth, int nHeight, bool bRepaint);

    [DllImport("user32.dll")] static extern bool AttachThreadInput(uint idAttach, uint idAttachTo, bool fAttach);

    [DllImport("user32.dll", SetLastError = true)] static extern uint GetWindowThreadProcessId(IntPtr hWnd, out uint lpdwProcessId);

    [DllImport("user32.dll")] static extern uint GetWindowThreadProcessId(IntPtr hWnd, IntPtr ProcessId);

    [DllImport("kernel32.dll")] static extern uint GetCurrentThreadId();

    [DllImport("user32.dll")] private static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);

    [DllImport("user32.dll", EntryPoint = "GetWindowLong")] static extern int GetWindowLongPtr(IntPtr hWnd, int nIndex);

    [DllImport("user32.dll", EntryPoint = "SetWindowLong")] private static extern int SetWindowLongPtr64(IntPtr hWnd, int nIndex,int dwNewLong);

    [StructLayout(LayoutKind.Sequential)]

    public struct RECT

    {

        public int Left;

        public int Top;

        public int Right;

        public int Bottom;

    }

    public Form1()

    {

        InitializeComponent();

    }

    private void Form1_Load(object sender, EventArgs e)

    {

         IntPtr h = FindWindow(null, "MAME: Amstrad CPC6128+ [cpc6128p]");

         if (h != IntPtr.Zero)

         {

            RECT r = new RECT();

            GetWindowRect(h, ref r);

            SetParent(h, Handle);

            MoveWindow(h, 10, 10, r.Right-r.Left, r.Bottom-r.Top, false);

            uint hOtroThread = GetWindowThreadProcessId(h, IntPtr.Zero);

            uint hEsteThread = GetCurrentThreadId();

           AttachThreadInput(hOtroThread, hEsteThread, true);

        }

    }

}