I have been struggling to get my app to work the way i want on vista for few days. I have decided to use 2 exe's The start exe contains a manifest to runas invoker. This exe only has a bas module that opens my main app that prompts for Administrator password. This allows my app to run with full rights. The problem is the prompt for administrator is minimized. How can i use shellexecute to not have the prompt minimized ?
Bas module does not have a hwnd so i supplied the desktop

Code:
Private Declare Function GetDesktopWindow Lib "user32" () As Long

  Dim hWndDeskTop As Long
   hWndDeskTop = GetDesktopWindow()
  ShellExecute hWndDeskTop, "runas", "ChildProcess.exe", "", CurDir$(), vbNormalFocus