Hvordan finder jeg ud af hvor dll'en ligger?

En lidt 'spooky' metode, men den virker på min vb6.

Funktionen er:

*******************************************

Private Function getLocation(sModule As String, progid As String) As String
  Dim hModule As Long
  Dim lReturn As Long
  Dim sBuffer As String
  Dim obj As Object
  Set obj = CreateObject(progid)
  Set obj = Nothing
  hModule = LoadLibrary(sModule & Chr(0))
  sBuffer = String(360, Chr(0))
  lReturn = GetModuleFileName(hModule, sBuffer, Len(sBuffer))
  sBuffer = Left(sBuffer, lReturn)
  lReturn = FreeLibrary(hModule)
 
  getLocation = sBuffer
End Function

*******************************************

LoadLibrary, GetModuleFileName, FreeLibrary er fra API vieweren. Det er lidt mærkeligt, men LoadLibrary fejler, hvis jeg ikke først har kaldt CreateObject på min progid. Men når dette er gjort virker det perfekt.

P.S. sModule i proceduren er navnet på dll'en.

Måske jeg er dum, men hvad er progid parameteren?

Hvilke ref skal jeg lode for at LoadLib og de andre virker!

Jeg fik selv løst problemmerne! Tak for hjælpen! Det virker, men der må være en nemmere vej!

Jeg er bange for, at andre alternativer er at finde registreringen i registrerings databasen.