SendShowToWindow(WindowHandle)
 
'Mit ....
Private Const SW_RESTORE as Integer = 9
 
Private Sub SendShowToWindow(ByVal WinHandle As IntPtr)
	ShowWindow(WinHandle, SW_RESTORE)
End Sub
 
'und mit ...
<DllImport("user32.dll", SetLastError := True, CharSet := CharSet.Unicode)> _
Friend Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Integer) As _
Integer
End Function

<DllImport("user32.dll", SetLastError := True, CharSet := CharSet.Unicode)> _
Friend Function GetDesktopWindow() As IntPtr	
End Function
 
<DllImport("user32.dll", SetLastError := True, CharSet := CharSet.Unicode)> _
Friend Function FindWindowEx(ByVal parentHandle As IntPtr, ByVal childAfter As _
IntPtr, ByVal lclassName As String, ByVal windowTitle As String) As IntPtr
End Function
 
Dim DesktopWin As IntPtr = GetDesktopWindow()
Dim basehandle As IntPtr = FindWindowEx(DesktopWin, IntPtr.Zero, _
  KlasseDeinesFensters , TitelDeinesFensters)