How can I get the handle in the virtual desktop

Private Sub Form_Load()
    g_hDesktopThreadOld = GetThreadDesktop(App.ThreadID)  '
    RegisterHotKey Me.hwnd, 1, MOD_CONTROL, Asc("Q")  '
    RegisterHotKey Me.hwnd, 2, MOD_CONTROL, Asc("W")  '
    g_hDesktopNameNew = "MyNewDesktop"
    g_hDesktopNew = OpenDesktop(g_hDesktopNameNew, 0, False, DESKTOP_ALL)   '
   
    If g_hDesktopNew = 0 Then
        g_hDesktopNew = CreateDesktop(g_hDesktopNameNew, vbNullString, ByVal 0&, 0, MAXIMUM_ALLOWED, ByVal 0&)  '
    End If
 
    lpOldWinProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf myWindowProc)  '
    
End Sub

Private Sub Command2_Click()
    StartMyExplore Text1.Text   'calc.exe
    
    Dim pTd     As Long
    Dim hThread As Long
    
    threadData.NotifyWnd = Text1.hwnd
    threadData.FindPath = SysAllocString(ByVal StrPtr("CalcFrame"))
    Sleep 3000
    hThread = vbCreateThread(0, 0, AddressOf Thread1, VarPtr(threadData), 0, 0)
    
End Sub

Public Sub Thread1(ByRef param As threadData)
 
    Dim mhwnd As Long, n As Long
    
    Call SetThreadDesktop(g_hDesktopNew)
    SwitchDesktop g_hDesktopNew
    Do
        mhwnd = FindWindow(param.FindPath, vbNullString)
        n = n + 1
        Sleep 1000
        DoEvents
 
        If n > 8 Or mhwnd <> 0 Then
            Exit Do
        End If
    Loop
 
    If mhwnd <> 0 Then
    
        SendMessageByString& param.NotifyWnd, WM_SETTEXT, 0, mhwnd
    
    Else
        SendMessageByString& param.NotifyWnd, WM_SETTEXT, 0, "error,cant find hwnd"
    End If
    
    Sleep 2000
    Call SetThreadDesktop(g_hDesktopThreadOld)
    SwitchDesktop g_hDesktopThreadOld
End Sub

sui.lpDesktop = StrPtr(g_hDesktopNameNew)

Option Explicit
                            
Private m_hCurProcess   As Long
Private m_hDeskThread   As Long
Private m_tControlData  As tUserThreadData
 
Private Sub cmdGetMainHandle_Click()
    txtHandle.Text = Hex$(GetHandleOfTopWindow(m_hDeskThread, m_hCurProcess))
End Sub
 
Private Sub cmdRun_Click()
 
    If m_hCurProcess Then
        MsgBox "Already running", vbCritical
        Exit Sub
    End If
    
    m_hCurProcess = RunProcess(txtPath.Text)
    If m_hCurProcess = 0 Then
        MsgBox "Unable to run process", vbCritical
        Exit Sub
    End If
    
    m_tControlData.hEvent = CreateEvent(ByVal 0&, 1, 0, 0)
    
    m_hDeskThread = vbCreateThread(0, 0, AddressOf ThreadProc, VarPtr(m_tControlData), 0, 0)
    
    If m_hDeskThread = 0 Then
        MsgBox "Unable to create thread", vbCritical
        Exit Sub
    End If
    
    cmdRun.Enabled = False
    cmdGetMainHandle.Enabled = True
    cmdSetCaption.Enabled = True
    
End Sub
 
Private Sub cmdSetCaption_Click()
    
    If SetTopWindowCaption(m_hDeskThread, m_hCurProcess, txtHandle.Text) = 0 Then
        MsgBox "Unable to set caption", vbCritical
    End If
    
End Sub
 
Private Sub Form_Load()
        
    Me.Caption = Me.Caption & " [" & Hex$(Me.hWnd) & "]"
        
    If Not modMultiThreading.Initialize() Then
        MsgBox "Unable to initialize multithreading", vbCritical
        Exit Sub
    End If
    
    If RegisterHotKey(Me.hWnd, 1, MOD_CONTROL, Asc("W")) = 0 Then
        MsgBox "Unable to register hotkey", vbCritical
        Exit Sub
    End If
    
    If SetWindowSubclass(Me.hWnd, AddressOf SubclassWndProc, 1, ByVal 0&) = 0 Then
        MsgBox "Unable to subclass", vbCritical
        Exit Sub
    End If
    
    If Not InitDesktop() Then
        MsgBox "Unable to init desktop", vbCritical
        Exit Sub
    End If
    
    cmdRun.Enabled = True
    
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    
    If m_hCurProcess Then
        If Not CloseProcess(m_hDeskThread, m_hCurProcess) Then
            AbnormalTermination m_hCurProcess
        End If
    End If
    
    ' // End thread
    If m_hDeskThread Then
        SetEvent m_tControlData.hEvent
        WaitForSingleObjectEx m_hDeskThread, INFINITE, 0
    End If
    
    CloseHandle m_tControlData.hEvent
    CloseHandle m_hDeskThread
    
    SwitchToMainDesktop
    RemoveWindowSubclass Me.hWnd, AddressOf SubclassWndProc, 1
    UnregisterHotKey Me.hWnd, 1
    DestroyDesktop
    modMultiThreading.Uninitialize
    
End Sub

Option Explicit
 
Public Const DESKTOP_NAME        As String = "MyNewDesktop"
Public Const MOD_CONTROL         As Long = &H2
Public Const WM_HOTKEY           As Long = &H312
Public Const GWL_WNDPROC         As Long = -4
Public Const WAIT_OBJECT_0       As Long = 0
Public Const INFINITE            As Long = -1&
Public Const GA_ROOT             As Long = 2
Public Const WAIT_TIMEOUT        As Long = &H102&
Public Const DESKTOP_ALL         As Long = 511
Public Const WAIT_IO_COMPLETION  As Long = &HC0&
Public Const THREAD_SET_CONTEXT  As Long = &H10
Public Const WM_SETTEXT          As Long = &HC
 
Public Type STARTUPINFO
    cb              As Long
    lpReserved      As Long
    lpDesktop       As Long
    lpTitle         As Long
    dwX             As Long
    dwY             As Long
    dwXSize         As Long
    dwYSize         As Long
    dwXCountChars   As Long
    dwYCountChars   As Long
    dwFillAttribute As Long
    dwFlags         As Long
    wShowWindow     As Integer
    cbReserved2     As Integer
    lpReserved2     As Long
    hStdInput       As Long
    hStdOutput      As Long
    hStdError       As Long
End Type
 
Public Type PROCESS_INFORMATION
    hProcess        As Long
    hThread         As Long
    dwProcessId     As Long
    dwThreadId      As Long
End Type
 
Public Type tUserThreadData
    hEvent          As Long
End Type
 
Private Type tEnumWndData
    lPID            As Long
    hWnd            As Long
End Type
 
Private Type tAPCCallbackData
    lFuncID         As Long
    vParams()       As Variant
    lRetValue       As Long
    hCallerThread   As Long
End Type
 
Public Declare Function OpenThread Lib "kernel32" ( _
                        ByVal dwDesiredAccess As Long, _
                        ByVal bInheritHandle As Long, _
                        ByVal dwThreadId As Long) As Long
Public Declare Function WaitForSingleObjectEx Lib "kernel32" ( _
                        ByVal hHandle As Long, _
                        ByVal dwMilliseconds As Long, _
                        ByVal bAlertable As Long) As Long
Public Declare Function SleepEx Lib "kernel32" ( _
                        ByVal dwMilliseconds As Long, _
                        ByVal bAlertable As Long) As Long
Public Declare Function GetProcessId Lib "kernel32" ( _
                        ByVal hProcess As Long) As Long
Public Declare Function GetMem4 Lib "msvbvm60" ( _
                        ByRef pSrc As Any, _
                        ByRef pDst As Any) As Long
Public Declare Function SetEvent Lib "kernel32" ( _
                        ByVal hEvent As Long) As Long
Public Declare Function CreateEvent Lib "kernel32" _
                        Alias "CreateEventW" ( _
                        ByRef lpEventAttributes As Any, _
                        ByVal bManualReset As Long, _
                        ByVal bInitialState As Long, _
                        ByVal lpName As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" ( _
                        ByVal hObject As Long) As Long
Public Declare Function GetThreadDesktop Lib "user32" ( _
                        ByVal dwThread As Long) As Long
Public Declare Function CreateDesktop Lib "user32" _
                        Alias "CreateDesktopW" ( _
                        ByVal lpszDesktop As Long, _
                        ByVal lpszDevice As Long, _
                        ByRef pDevmode As Any, _
                        ByVal dwFlags As Long, _
                        ByVal dwDesiredAccess As Long, _
                        ByRef lpsa As Any) As Long
Public Declare Function SwitchDesktop Lib "user32" ( _
                        ByVal hDesktop As Long) As Long
Public Declare Function SetThreadDesktop Lib "user32" ( _
                        ByVal hDesktop As Long) As Long
Public Declare Function CloseDesktop Lib "user32" ( _
                        ByVal hDesktop As Long) As Long
Public Declare Function OpenDesktop Lib "user32" _
                        Alias "OpenDesktopW" ( _
                        ByVal lpszDesktop As Long, _
                        ByVal dwFlags As Long, _
                        ByVal fInherit As Long, _
                        ByVal dwDesiredAccess As Long) As Long
Public Declare Function RegisterHotKey Lib "user32" ( _
                        ByVal hWnd As Long, _
                        ByVal id As Long, _
                        ByVal fsModifiers As Long, _
                        ByVal vk As Long) As Long
Public Declare Function SetWindowLong Lib "user32" _
                        Alias "SetWindowLongW" ( _
                        ByVal hWnd As Long, _
                        ByVal nIndex As Long, _
                        ByVal dwNewLong As Long) As Long
Public Declare Function CreateProcess Lib "kernel32" _
                        Alias "CreateProcessW" ( _
                        ByVal lpApplicationName As Long, _
                        ByVal lpCommandLine As Long, _
                        ByRef lpProcessAttributes As Long, _
                        ByRef lpThreadAttributes As Long, _
                        ByVal bInheritHandles As Long, _
                        ByVal dwCreationFlags As Long, _
                        ByRef lpEnvironment As Any, _
                        ByVal lpCurrentDriectory As Long, _
                        ByRef lpStartupInfo As STARTUPINFO, _
                        ByRef lpProcessInformation As PROCESS_INFORMATION) As Long
Public Declare Function CallWindowProc Lib "user32" _
                        Alias "CallWindowProcW" ( _
                        ByVal lpPrevWndFunc As Long, _
                        ByVal hWnd As Long, _
                        ByVal Msg As Long, _
                        ByVal wParam As Long, _
                        ByVal lParam As Long) As Long
Public Declare Function SetWindowSubclass Lib "Comctl32" ( _
                        ByVal hWnd As Long, _
                        ByVal pfnSubclass As Long, _
                        ByVal uIdSubclass As Long, _
                        ByRef dwRefData As Any) As Long
Public Declare Function RemoveWindowSubclass Lib "Comctl32" ( _
                        ByVal hWnd As Long, _
                        ByVal pfnSubclass As Long, _
                        ByVal uIdSubclass As Long) As Long
Public Declare Function DefSubclassProc Lib "Comctl32" ( _
                        ByVal hWnd As Long, _
                        ByVal uMsg As Long, _
                        ByVal wParam As Long, _
                        ByVal lParam As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" ( _
                        ByVal hWnd As Long, _
                        ByVal id As Long) As Long
Public Declare Function FindWindow Lib "user32" _
                        Alias "FindWindowW" ( _
                        ByVal lpClassName As Long, _
                        ByVal lpWindowName As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" ( _
                        ByVal hProcess As Long, _
                        ByVal uExitCode As Long) As Long
Public Declare Function GetAncestor Lib "user32" ( _
                        ByVal hWnd As Long, _
                        ByVal gaFlags As Long) As Long
Public Declare Function EndTask Lib "user32" ( _
                        ByVal hWnd As Long, _
                        ByVal fShutDown As Long, _
                        ByVal fForce As Long) As Long
Public Declare Function QueueUserAPC Lib "kernel32" ( _
                        ByVal pfnAPC As Long, _
                        ByVal hThread As Long, _
                        ByRef dwData As Any) As Long
Public Declare Function EnumWindows Lib "user32" ( _
                        ByVal lpEnumFunc As Long, _
                        ByVal lParam As Long) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" ( _
                        ByVal hWnd As Long, _
                        ByRef lpdwProcessId As Long) As Long
Public Declare Function SendMessage Lib "user32" _
                        Alias "SendMessageW" ( _
                        ByVal hWnd As Long, _
                        ByVal wMsg As Long, _
                        ByVal wParam As Long, _
                        ByRef lParam As Any) As Long
Public Declare Sub GetStartupInfo Lib "kernel32" _
                   Alias "GetStartupInfoW" ( _
                   ByRef lpStartupInfo As STARTUPINFO)
                
Private Enum FNID
    FNID_FINDWINDOW
    FNID_CLOSEPROCESS
    FNID_GETTOPHANDLE
    FNID_SETCAPTION
End Enum
                        
Private m_hNewDesktop   As Long
Private m_hOldDesktop   As Long
Private m_hCurDesktop   As Long
 
Public Sub AbnormalTermination( _
           ByVal hProcess As Long)
               
    TerminateProcess hProcess, 0
    WaitForSingleObjectEx hProcess, INFINITE, 0
                   
End Sub
 
Public Function CloseProcess( _
                ByVal hThread As Long, _
                ByVal hProcess As Long) As Boolean
    CloseProcess = APCDispatcher(hThread, FNID_CLOSEPROCESS, hProcess)
End Function
 
Public Function RunProcess( _
                ByRef sName As String) As Long
    Dim tSI As STARTUPINFO
    Dim tPI As PROCESS_INFORMATION
    
    GetStartupInfo tSI
    
    tSI.lpDesktop = StrPtr(DESKTOP_NAME)
    
    If CreateProcess(StrPtr(sName), 0, 0, 0, 0, 0, ByVal 0&, ByVal 0&, tSI, tPI) = 0 Then
        Exit Function
    End If
    
    CloseHandle tPI.hThread
    
    RunProcess = tPI.hProcess
    
End Function
 
Public Function FindWindowInNewDesktop( _
                ByVal hThread As Long, _
                ByVal sClassName As String, _
                ByVal sWindowName As String) As Long
    FindWindowInNewDesktop = APCDispatcher(hThread, FNID_FINDWINDOW, sClassName, sWindowName)
End Function
 
Public Function GetHandleOfTopWindow( _
                ByVal hThread As Long, _
                ByVal hProcess As Long) As Long
    GetHandleOfTopWindow = APCDispatcher(hThread, FNID_GETTOPHANDLE, hProcess)
End Function
 
Public Function SetTopWindowCaption( _
                ByVal hThread As Long, _
                ByVal hProcess As Long, _
                ByVal sCaption As String) As Long
    SetTopWindowCaption = APCDispatcher(hThread, FNID_SETCAPTION, hProcess, sCaption)
End Function
 
' // This function calls procedure in other thread and wait for completion
Private Function APCDispatcher( _
                 ByVal hThread As Long, _
                 ByVal lFuncID As Long, _
                 ParamArray vParams() As Variant) As Long
    Dim pParams(3)  As Long
    
    pParams(0) = lFuncID
    
    GetMem4 ByVal VarPtr(lFuncID) + 4, pParams(1)
    GetMem4 ByVal pParams(1), pParams(1)
    
    pParams(3) = OpenThread(THREAD_SET_CONTEXT, 0, App.ThreadID)
    
    If pParams(3) = 0 Then
        MsgBox "Unable to open thread for APC", vbCritical
        Exit Function
    End If
    
    If QueueUserAPC(AddressOf DesktopAPCCallback, hThread, pParams(0)) Then
        SleepEx INFINITE, 1
    End If
    
    CloseHandle pParams(3)
    
    APCDispatcher = pParams(2)
    
End Function
 
' // This procedure called in new desktop
Private Sub DesktopAPCCallback( _
            ByRef tParams As tAPCCallbackData)
    
    Select Case tParams.lFuncID
    Case FNID_FINDWINDOW
        tParams.lRetValue = FindWindow(StrPtr(tParams.vParams(0)), StrPtr(tParams.vParams(1)))
    Case FNID_CLOSEPROCESS
        tParams.lRetValue = CloseProcessInThread(tParams.vParams(0))
    Case FNID_GETTOPHANDLE
        tParams.lRetValue = GetTopHandleInThread(tParams.vParams(0))
    Case FNID_SETCAPTION
        tParams.lRetValue = SetCaptionInThread(tParams.vParams(0), tParams.vParams(1))
    End Select
        
    QueueUserAPC AddressOf MainAPCCallback, tParams.hCallerThread, ByVal 0&
    
End Sub
 
Private Function SetCaptionInThread( _
                 ByVal hProcess As Long, _
                 ByVal sCaption As String) As Long
    Dim hWnd    As Long
    
    hWnd = GetTopHandleInThread(hProcess)
    
    If hWnd Then
        SetCaptionInThread = SendMessage(hWnd, WM_SETTEXT, 0, ByVal StrPtr(sCaption))
    End If
    
End Function
 
Private Function GetTopHandleInThread( _
                 ByVal hProcess As Long) As Long
    Dim tData   As tEnumWndData
    
    tData.lPID = GetProcessId(hProcess)
    
    EnumWindows AddressOf EnumWndProc, VarPtr(tData)
    
    GetTopHandleInThread = tData.hWnd
    
End Function
 
Private Function CloseProcessInThread( _
                 ByVal hProcess As Long) As Long
    Dim hWnd    As Long
    
    hWnd = GetTopHandleInThread(hProcess)
    
    If hWnd Then
        CloseProcessInThread = EndTask(hWnd, 0, 1)
    End If
    
End Function
 
Private Function EnumWndProc( _
                 ByVal hWnd As Long, _
                 ByRef tData As tEnumWndData) As Long
    Dim lWndPID As Long
    
    GetWindowThreadProcessId hWnd, lWndPID
    
    If tData.lPID <> lWndPID Then
        EnumWndProc = 1
    Else
        tData.hWnd = hWnd
    End If
    
End Function
 
' // This procedure called in current desktop
' // Isn't used. Just to return from SleepEx
Private Sub MainAPCCallback( _
            ByVal lUnused As Long)
End Sub
 
Public Function ThreadProc( _
                ByRef tData As tUserThreadData) As Long
    
    ' // Loop until we SetEvent. Skip APCs
    Do While WaitForSingleObjectEx(tData.hEvent, INFINITE, 1) = WAIT_IO_COMPLETION
    Loop
    
End Function
 
' // Switch caller thread to desktop
Public Sub SwitchToOtherDesktop()
    If m_hNewDesktop Then
        SetThreadDesktop m_hNewDesktop
    End If
End Sub
 
Public Sub SwitchToMainDesktop()
    SwitchDesktop m_hOldDesktop
    m_hCurDesktop = m_hOldDesktop
End Sub
 
Public Function SubclassWndProc( _
                ByVal hWnd As Long, _
                ByVal lMsg As Long, _
                ByVal wParam As Long, _
                ByVal lParam As Long, _
                ByVal uIdSubclass As Long, _
                ByVal dwRefData As Long) As Long
    
    Select Case lMsg
    Case WM_HOTKEY
        If wParam = 1 Then
            If m_hCurDesktop = m_hOldDesktop Then
                SwitchDesktop m_hNewDesktop:    m_hCurDesktop = m_hNewDesktop
            Else
                SwitchDesktop m_hOldDesktop:    m_hCurDesktop = m_hOldDesktop
            End If
        End If
    Case Else
        SubclassWndProc = DefSubclassProc(hWnd, lMsg, wParam, lParam)
    End Select
    
End Function
 
Public Function InitDesktop() As Boolean
    
    If m_hNewDesktop = 0 Then
        
        m_hOldDesktop = GetThreadDesktop(App.ThreadID)
        m_hNewDesktop = OpenDesktop(StrPtr(DESKTOP_NAME), 0, 0, DESKTOP_ALL)    '
        m_hCurDesktop = m_hOldDesktop
        
        If m_hNewDesktop = 0 Then
            m_hNewDesktop = CreateDesktop(StrPtr(DESKTOP_NAME), 0, ByVal 0&, 0, DESKTOP_ALL, ByVal 0&)  '
        End If
        
    End If
    
    InitDesktop = m_hNewDesktop
    
End Function
 
Public Function DestroyDesktop() As Boolean
    
    If m_hNewDesktop Then
        If CloseDesktop(m_hNewDesktop) Then
            DestroyDesktop = True
            m_hNewDesktop = 0
        End If
    Else
        DestroyDesktop = True
    End If
    
    m_hCurDesktop = m_hOldDesktop
    
End Function