Yep, thanks, I found it ..... works great ...
VB Code:
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
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()
Dim lHwnd As Long
Dim sTitle$
'sTitle = "Untitled - Notepad"
sTitle = "c:\winnt\system32\cmd.exe"
lHwnd = FindWindow(vbNullString, sTitle)
Call SetParent(lHwnd, Picture1.hwnd)
Call ShowWindow(lHwnd, 3)
End Sub
Happy New Year !