🚀 go-pugleaf

Dave,
I've tested this code on Qtek 2020 and it works for both Pocket Word and ClearVue PDF Reader.

------------------------------------------------------------------
API DECLARATION
 ------------------------------------------------------------------
Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2

Public Const SWP_NOSIZE As Long = &H1
Public Const SWP_NOMOVE As Long = &H2
Public Const SWP_HIDEWINDOW As Long = &H80

Public Declare Function GetWindow Lib "Coredll" ( _
    ByVal hWnd As Long, _
    ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "Coredll" _
    Alias "GetWindowTextW" ( _
    ByVal hWnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long
Public Declare Function SetWindowPos Lib "Coredll" ( _
    ByVal hWnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) As Long

------------------------------------------------------------------
CODE (partial)
------------------------------------------------------------------

Dim lngHandle As Long
Dim hFirst As Long
Dim hLast As Long
Dim strTitle As String
Dim lclAttPathName As String

...

'Create absolute path name from user choice
lclAttPathName = _
    "\My Documents\Novita\" & OPNLLView.SelectedItem.SubItems(2)
If CreateProcess("\Windows\fexplore.exe", lclAttPathName,
                 0, 0, 0, 0, 0, 0, 0, 0) = 0 Then
    MsgBox "CreateProcess failure"
    Exit Sub
End If
hFirst = GetWindow(OPNLForm.hWnd, GW_HWNDFIRST)
hLast = GetWindow(OPNLForm.hWnd, GW_HWNDLAST)
'Initialize the title string
strTitle = Space(255)
'Get the window title
GetWindowText hFirst, strTitle, Len(strTitle)
'Iterate on all windows
lngHandle = hFirst
Do While Not lngHandle = hLast
    i = i + 1
    'Don't manage "blank" window titles
    If Asc(Left(strTitle, 1)) <> 0 Then
        'Compare window title with expected title
        If UCase(Mid(strTitle, 1, Len("ESPLORA FILE"))) = _
           "ESPLORA FILE" Then
            'Tell explorer window to follow Me.hWnd in z-order
            'THIS IS THE ONLY WAY I GOT IT TO WORK
            Call SetWindowPos(lngHandle, Me.hWnd, 0, 0, 0, 0,
                 SWP_NOMOVE Or SWP_NOSIZE Or SWP_HIDEWINDOW)
            Exit Do
        End If
    End If
    'Get the next window
    lngHandle = GetWindow(lngHandle, GW_HWNDNEXT)
    'Initialize the title string
    strTitle = Space(255)
    'Get the window title
    GetWindowText lngHandle, strTitle, Len(strTitle)
Loop

------------------------------------------------------------------

Hope this helps.

Alberto