VB.NET ESP HACK Çalıştırma Sorunu

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.IO
Imports System.Diagnostics
Imports System.Threading
Imports System.Runtime.InteropServices

Namespace execalistir

    Public Partial Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()
        End Sub

        <DllImport("user32.dll")>
        Private Shared Function SetParent(ByVal child As IntPtr, ByVal newParent As IntPtr) As IntPtr
        End Function

        <DllImport("user32.dll")>
        Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
        End Function

        <DllImport("user32.dll")>
        <MarshalAs(UnmanagedType.Bool)>
        Private Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
        End Function

        Private Const WM_SYSCOMMAND As Integer = 274

        Private Const SC_MAXIMIZE As Integer = 61488

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim exeyolu As String = "calc.exe"
            Dim calistir As Process = Process.Start(exeyolu)
            While calistir.MainWindowHandle = IntPtr.Zero OrElse Not IsWindowVisible(calistir.MainWindowHandle)
                System.Threading.Thread.Sleep(10)
                calistir.Refresh()
            End While

            calistir.WaitForInputIdle()
            SetParent(calistir.MainWindowHandle, Me.panel1.Handle)
            SendMessage(calistir.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
        End Sub
    End Class
End Namespace