Ausgeblendete Fenster finden,zeigen

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 Const SW_HIDE = 0
Private Const SW_SHOW = 5


Sub aus1()
wHandle = FindWindow(vbNullString, "testfenster.txt")
lResult = ShowWindow(wHandle, SW_HIDE)
End Sub




Sub aus2()
wHandle = FindWindow(vbNullString, "Rechner")
lResult = ShowWindow(wHandle, SW_HIDE)
End Sub




Sub ein1()
wHandle = FindWindow(vbNullString, "testfenster.txt")
lResult = ShowWindow(wHandle, SW_SHOW)
End Sub




Sub ein2()
wHandle = FindWindow(vbNullString, "Rechner")
lResult = ShowWindow(wHandle, SW_SHOW)
End Sub