ShellExecute的问题

Question

用ShellExecute调用外部EXE时，怎么让它以最小化启动，就是说获得焦点的还是当前的程序，我用下面的代码，不行
Public Const SW_MINIMIZE = 6
ShellExecute 0, "open", "c:\1.exe", "c:\", "", SW_MINIMIZE另外有那个API可以让程序获得焦点SetForegroundWindow？？

Answer 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
       ByVal hwnd As Long, _
       ByVal lpOperation As String, _
       ByVal lpFile As String, _
       ByVal lpParameters As String, _
       ByVal lpDirectory As String, _
       ByVal nShowCmd As Long) As Long
Const SW_MINIMIZE = 6
Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString, "notepad.exe", vbNullString, vbNullString, SW_MINIMIZE
End Sub