· hProcess
[in] Handle to the process that contains the module.

· hModule
[in] Handle to the module.

· lpFilename
[out] Pointer to the buffer that receives the fully qualified path to the module. If the file name is longer than maximum number of characters specified by the nSize parameter, the file name is truncated.

· nSize
[in] Specifies the maximum number of characters to copy to the lpFilename buffer.


Return:
If the function succeeds, the return value specifies the length of the string copied to the buffer. 

If the function fails, the return value is zero. To get extended error information, call GetLastError. 

Declare Function GetModuleFileName Lib  "kernel32"  Alias  "GetModuleFileNameA"  (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

· hModule
Identifies the module whose executable filename is being requested. If this parameter is NULL, GetModuleFileName returns the path for the file used to create the calling process.

· lpFilename
Points to a buffer that is filled in with the path and filename of the given module.

· nSize
Specifies the length, in characters, of the lpFilename buffer. If the length of the path and filename exceeds this limit, the string is trunc

If the function succeeds, the return value is the length, in characters, of the string copied to the buffer. 

If the function fails, the return value is zero. To get extended error information, call GetLastError. 

Private Declare Function GetModuleFileName Lib  "kernel32"  Alias  "GetModuleFileNameA"  (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib  "user32"  (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (- 6 )
Private Sub Form_Load()
    Dim ModuleName As String, FileName As String, hInst As Long
    'create a buffer
    ModuleName = String$(128, Chr$(0))
    'get the hInstance application:
    hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
    'get the ModuleFileName:
    'enter the following two lines as one, single line:
    ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
    Me.Caption  "Module Filename: "  + ModuleName
End Sub