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

4 Areas of Your Company Where Your Audio Really Matters
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a