Dim sFile As String = ""
Dim hWnd As Integer
 
hWnd = GetWindow(oLSV.Parent.Handle, GW_HWNDFIRST)
 
do
    sFile = Space$(260)
    ExeName = GetModuleFileNameEx([u]GetWindowTaskID(hWnd), 0, _
      [u]sFile, [u]sFile.Length)
    hWnd = GetWindow(hWnd, GW_HWNDNEXT)
Loop Until hWnd = 0