اینجوری میشه ولی دسترسی زیادی بهش نخواهید داشت و کنترل خاصی هم روش نمیشه انجام داد...
Notepad.png
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
اجرای یک فایل exe
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول