Te dejo un ejemplo que hize ahorita:
'**Recuerda abrir un nuevo Bloc de Notas*
Option Explicit
'Declaraciones API
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 Form_Load()
Dim hWndActivo As Long
'Obteniendo el Handle
hWndActivo = FindWindow(vbNullString, "Sin título - Bloc de Notas")
'Moviendo el Bloc de notas para el Form1
SetParent hWndActivo, Me.hWnd
End Sub