Kod: Option Explicit Private Const GW_HWNDNEXT = 2 Private Declare Function GetWindowThreadProcessId Lib "user32" _ As Long Private Declare Function GetParent Lib "user32" As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ As Long Private Declare Function GetWindow Lib "user32" As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ As Long Private Declare Function SetParent Lib "user32" As Long Private old_parent As Long Private child_hwnd As Long Private Function InstanceToWnd As Long Dim test_hwnd As Long Dim test_pid As Long Dim test_thread_id As Long test_hwnd = FindWindow(ByVal 0&, ByVal 0&) Do While test_hwnd <> 0 If GetParent = 0 Then test_thread_id = GetWindowThreadProcessId If test_pid = target_pid Then InstanceToWnd = test_hwnd Exit Do End If End If test_hwnd = GetWindow Loop End Function Private Sub Command2_Click ' Program serbest bırakılır form dışına çıkar SetParent child_hwnd, old_parent Command1. Enabled = True Command2. Enabled = False End Sub Private Sub Command1_Click ' Program form içerisinde çalıştırır Dim pid As Long Dim buf As String Dim buf_len As Long pid = Shell ' NotePad çalıştırılıyor If pid = 0 Then MsgBox "Hatalı İşlem" Exit Sub End If child_hwnd = InstanceToWnd old_parent = SetParent Command1. Enabled = False Command2. Enabled = True End Sub System32'deki notepad'ı formun içerisinde çalıştırır. Ne koyarsanız onuda açar. Şimdi bir paylaşım bir yardım Bununla projemin içerisinde açtığım exe dosyasını bir butonla formun belirttiğim yerine gitmesini istiyorum. Fakat dosya formun içinde çalıştığından hwnd yöntemiyle bir türlü istediğim yere götüremedim. Aşağıda vereceğim yöntem ile hwndsini bildiğim yer şeyin pozisyonunu belirliyebiliyorum. Fakat işte form içinde çalışan projede işlemiyor. Kod: Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetWindowRect Lib "user32" As Long Private Declare Function SetWindowPos Lib "user32" As Long Private Declare Function GetForegroundWindow Lib "user32" As Long Kod: Private Sub Form_Load SetWindowPos Me. hwnd, -1, 0, 0, 0, 0, 1 //veya direk hwnd End Sub Şunu yapabilirsek çok işime yarıyacak.