//using System;
//using System.Runtime.InteropServices;
//using System.Text;
private const int MAX_PATH = 260;
private const int PROCESS_QUERY_INFORMATION = 0x400;
private const int PROCESS_VM_READ = 0x10;
[DllImport("user32", SetLastError = true)]
private static extern int GetWindowThreadProcessId(IntPtr hWnd, ref int lpdwProcessId);
[DllImport("kernel32", SetLastError = true)]
private static extern IntPtr OpenProcess(int dwDesiredAccess, bool bInheritHandle, int dwProcessId);
[DllImport("kernel32", SetLastError = true)]
private static extern bool CloseHandle(IntPtr hObject);
[DllImport("psapi", SetLastError = true)]
private static extern int GetModuleFileNameEx(IntPtr hProcess, IntPtr hModules, StringBuilder lpFileName, int nSize);

private static string GetExeFilePathFromHandle(IntPtr Handle) {
  StringBuilder Buffer = new StringBuilder(MAX_PATH);
  int Pid = 0x0;
  IntPtr hProcess = IntPtr.Zero;
  GetWindowThreadProcessId(Handle, ref Pid);
  hProcess = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ, false, Pid);
  Buffer.Length = GetModuleFileNameEx(hProcess, IntPtr.Zero, Buffer, MAX_PATH);
  CloseHandle(hProcess);
  return Buffer.ToString();
}

Private Const MAX_PATH As Long = 260&
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const PROCESS_VM_READ As Long = &H10
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetModuleFileNameEx Lib "psapi" Alias "GetModuleFileNameExW" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As Long, ByVal nSize As Long) As Long
Private Function GetExeFilePathFromHandle(ByVal hWnd As Long) As String
  Dim Buffer As String
  Dim BufferLength As Long
  Dim Pid As Long
  Dim hProcess As Long
  Buffer = VBA.String$(MAX_PATH, ChrW$(0))
  Call GetWindowThreadProcessId(hWnd, Pid)
  hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0&, Pid)
  BufferLength = GetModuleFileNameEx(hProcess, 0&, StrPtr(Buffer), MAX_PATH)
  Call CloseHandle(hProcess)
  GetExeFilePathFormHandle = VBA.Left$(Buffer, BufferLength)
End Function

'Imports System
'Imports System.Runtime.InteropServices
'Imports System.Text
Private Const MAX_PATH As Integer = 260
Private Const PROCESS_QUERY_INFORMATION As Integer = &H400
Private Const PROCESS_VM_READ As Integer = &H10
<DllImport("user32", SetLastError:=True)> _
Private Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
End Function
<DllImport("kernel32", SetLastError:=True)> _
Private Function OpenProcess(ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As IntPtr
End Function
<DllImport("kernel32", SetLastError:=True)> _
Private Function CloseHandle(ByVal hObject As IntPtr) As Boolean
End Function
<DllImport("psapi", SetLastError:=True)> _
Private Function GetModuleFileNameEx(ByVal hProcess As IntPtr, ByVal hModule As IntPtr, ByVal lpFileName As StringBuilder, ByVal nSize As Integer) As Integer
End Function

Private Function GetExeFilePathFromHandle(ByVal Handle As IntPtr) As String
  Dim Buffer As New StringBuilder(MAX_PATH)
  Dim Pid As Integer
  Dim hProcess As IntPtr
  Call GetWindowThreadProcessId(Handle, Pid)
  hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, False, Pid)
  Buffer.Length = GetModuleFileNameEx(hProcess, IntPtr.Zero, Buffer, MAX_PATH)
  Call CloseHandle(hProcess)
  Return Buffer.ToString()
End Function