[RESOLVED] How to get focus back to my app

[Crapahute]

Hi, here is my problem :

I have 2 vb programs, App1 and App2.

App1 launches App2 with

Shell "App2.exe", vbNormalFocus

I would like App1 to get back the focus when user minimizes App2.

For the moment, when App2 is minimized by the user, he has to click App1. When I try the command AppActivate, App1 (MDI form) flashes but does not get the focus.

[VanGoghGaming]

You could call SetForegroundWindow on App1 when App2 is minimized.

[Crapahute]

Thank you, it seems to be the best solution. I was trying to pilot everything from App1 (waiting App2 to lose focus in order to get it back) but your solution is better.

For those interested, here is what I've done.

App1 :

Option Explicit

Private Sub Command1_Click()
    
    Shell """" & App.Path & "\App2.exe"" " & Me.hWnd, vbNormalFocus
    
End Sub

App2:

Option Explicit

Private App1hWnd As Long

Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) As Long

Private Sub Form_Load()

    App1hWnd = CLng(Command$)
    
End Sub

Private Sub Form_Resize()
    
    If Me.WindowState = vbMinimized Then
        
        If App1hWnd <> 0 Then SetForegroundWindow App1hWnd
        
        Exit Sub
        
    End If
    
End Sub