Shared Function _    LoadLibrary(ByVal path As String) As IntegerEnd Function Shared Function _    GetProcAddress(ByVal hModule As Integer, ByVal procName As String) As _    IntegerEnd Function Shared Sub FreeLibrary _    (ByVal hModule As Integer)End Sub' Check whether a DLL is an COM self-registering server Function IsComDLL(ByVal filename As String) As Boolean    Dim hModule As Long    Dim procAddress As Long    ' attempt to load the DLL    hModule = LoadLibrary(filename)    If hModule <> 0 Then        ' the DLL has been loaded        ' get the address of the DllRegisterServer function        procAddress = GetProcAddress(hModule, "DllRegisterServer")        ' if non-zero then the function is there        IsComDLL = (procAddress <> 0)        ' free-memory        FreeLibrary(hModule)    End IfEnd Function