اجرای یک فایل exe

اینجوری میشه ولی دسترسی زیادی بهش نخواهید داشت و کنترل خاصی هم روش نمیشه انجام داد...

ضمیمه 127849

Option Explicit



Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long





Private Sub Command1_Click()

Shell "notepad.exe"



Dim ChildHwnd As Long

ChildHwnd = FindWindow(vbNullString, "Untitled - Notepad")





SetParent ChildHwnd, Me.hWnd



End Sub