' Fokus auf Childfenster setzen
    DoEvents
    Me.SetFocus

Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
 
Private Declare Function IsWindowEnabled Lib "user32" ( _
    ByVal hwnd As Long) As Long
 
Private Declare Function EnableWindow Lib "user32.dll" ( _
   ByVal hwnd As Long, ByVal fEnable As Long) As Long
 
Private Declare Function SetParent Lib "user32" ( _
    ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
 
Public OwnerHwnd As Long
 
 
Private Sub Command1_Click()
 
    'Zum Testen den MS-Editor "NotePad" starten
    Call Shell("notepad.exe", vbNormalFocus)
 
    'FensteHandle ermitteln (Fenster-Titel muss exakt stimmen!)
    OwnerHwnd = FindWindow(vbNullString, "Unbenannt - Editor") 'NotePad
 
    ' fremdes Fenster als neuen Besitzer (Parent) festlegen
    SetParent 0&, OwnerHwnd
 
    ' Parent-Fenster disablen
    EnableWindow OwnerHwnd, 0
 
    ' Fokus auf Childfenster setzen
    DoEvents
    Me.SetFocus
 
End Sub
 
Private Sub Command2_Click()
 
    ' das fremde Fenster (Parent) wieder enablen
    EnableWindow OwnerHwnd, 1
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
    ' das fremde Fenster (Parent) wieder enablen
    EnableWindow OwnerHwnd, 1
End Sub