在vb6中，有没有可能从dll本身中获取dll的文件名？

Option Explicit

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

Private Sub GetDllFileName()
    Dim dllFileName As String
    Dim result As Long
    
    dllFileName = Space$(260) ' 设置一个足够大的字符串缓冲区来存储文件名
    result = GetModuleFileName(0, dllFileName, Len(dllFileName))
    
    If result > 0 Then
        dllFileName = Left$(dllFileName, result)
        MsgBox "DLL文件名为：" & dllFileName
    Else
        MsgBox "无法获取DLL文件名。"
    End If
End Sub