Hello,
I'm trying to keep the 'open with' dialog on top until you select a program or cancel. Or bring it back to the top if you right click on the listbox. I've posted my code, could somebody tell me what I'm doing wrong. The only examples i've seen for BringWindowToTop API are 'BringWindowToTop form2.hwnd'. How can I apply that to the 'open with' dialog box??

'=========================
Private Sub lstLoad_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
'Bring up the 'open with' dialog and open selected file
'=========================

Dim WinWnd As Long
Dim zhWnd as Long
If lstLoad.ListIndex <> -1 Then
WinWnd = FindWindow(vbNullString, "Open With") 'if the openwith dialog is already open
If WinWnd = 0 Then
Call GetListItemInfo(lstLoad)
If Button = vbRightButton Then
Shell ("rundll32.exe shell32.dll,OpenAs_RunDLL " & strFullName)
zhWnd = GetActiveWindow
End If
Else
BringWindowToTop(zHwnd)
End If

End If

End Sub

Thank you,
Rick