वर्तमान प्रक्रिया विंडो को सामने ले जाना

मैं स्क्रीनशॉट लेने के लिए हर घंटे एक थ्रेड कॉल कर रहा हूं। लेकिन समस्या विंडो को सक्रिय करने या विंडो को सामने की ओर ले जाने की है। अगर सामने अन्य ऐप्स हैं तो स्क्रीनशॉट लेते समय वे सामने दिखाई देते हैं। क्या चल रहा है?

<Runtime.InteropServices.DllImport("user32.dll")>
Private Function SetForegroundWindow(ByVal hWnd As IntPtr) As Integer
End Function

<Runtime.InteropServices.DllImport("user32.dll")>
Private Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As IntPtr
End Function

Public Sub TakeScreenshot()
        Dim thread As New Threading.Thread(AddressOf TakeScreenShotThread)
        thread.Start()
End Sub

Public Function TakeScreenShotThread() As Integer
        Dim proc As Process = Process.GetCurrentProcess
        Call SetForegroundWindow(proc.MainWindowHandle)
        Call ShowWindow(proc.MainWindowHandle, 5)

                    'GIVE IT TIME TO DISPLAY THE APP AND ACTIVATE WINDOW
        Dim t = Threading.Tasks.Task.Run(Async Function()
                                             Await Threading.Tasks.Task.Delay(TimeSpan.FromMilliseconds(200))
                                             Return 1
                                         End Function)

        t.Wait()

                    'SAVE SCREENSHOT IMAGE CODE HERE
End Function