Как написать библиотеку на С++ для программ на VB 6.0

#include "pch.h" // Используйте "stdafx.h", если проект использует предкомпилированные заголовки
 
BOOL APIENTRY DllMain(HMODULE hModule,
    DWORD  ul_reason_for_call,
    LPVOID lpReserved)
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}

#include <Windows.h> 
#include "pch.h"
//#include "framework.h"
#include "Dll1.h"
 
// Экспортируемая функция умножения
double __stdcall Multiply(double a, double b) {
    return a * b;
}

#pragma once
#ifdef DLL1_EXPORTS
#define DLL1_API __declspec(dllexport)
#else
#define DLL1_API __declspec(dllimport)
#endif
 
extern "C" DLL1_API double __stdcall Multiply(double a, double b);

LIBRARY Dll1
EXPORTS
    Multiply @1

// SimpleMathCOM.cpp: реализация экспортов DLL.
 
 
#include <Windows.h> 
#include "pch.h"
#include "framework.h"
#include "resource.h"
#include "SimpleMathCOM_i.h"
#include "dllmain.h"
#include "xdlldata.h"
 
 
using namespace ATL;
 
// Используется, чтобы определить, можно ли выгрузить DLL средствами OLE.
_Use_decl_annotations_
STDAPI DllCanUnloadNow(void)
{
#ifdef _MERGE_PROXYSTUB
    HRESULT hr = PrxDllCanUnloadNow();
    if (hr != S_OK)
        return hr;
#endif
    return _AtlModule.DllCanUnloadNow();
}
 
// Возвращает фабрику класса для создания объекта требуемого типа.
_Use_decl_annotations_
STDAPI DllGetClassObject(_In_ REFCLSID rclsid, _In_ REFIID riid, _Outptr_ LPVOID* ppv)
{
#ifdef _MERGE_PROXYSTUB
    HRESULT hr = PrxDllGetClassObject(rclsid, riid, ppv);
    if (hr != CLASS_E_CLASSNOTAVAILABLE)
        return hr;
#endif
    return _AtlModule.DllGetClassObject(rclsid, riid, ppv);
}
 
// DllRegisterServer - добавляет записи в системный реестр.
_Use_decl_annotations_
STDAPI DllRegisterServer(void)
{
    // регистрирует объект, библиотеку типов и все интерфейсы в библиотеке типов
    HRESULT hr = _AtlModule.DllRegisterServer();
#ifdef _MERGE_PROXYSTUB
    if (FAILED(hr))
        return hr;
    hr = PrxDllRegisterServer();
#endif
    return hr;
}
 
// DllUnregisterServer - удаляет записи из системного реестра.
_Use_decl_annotations_
STDAPI DllUnregisterServer(void)
{
    HRESULT hr = _AtlModule.DllUnregisterServer();
#ifdef _MERGE_PROXYSTUB
    if (FAILED(hr))
        return hr;
    hr = PrxDllRegisterServer();
    if (FAILED(hr))
        return hr;
    hr = PrxDllUnregisterServer();
#endif
    return hr;
}
 
// DllInstall - добавляет и удаляет записи системного реестра для конкретного пользователя и компьютера.
STDAPI DllInstall(BOOL bInstall, _In_opt_  LPCWSTR pszCmdLine)
{
    HRESULT hr = E_FAIL;
    static const wchar_t szUserSwitch[] = L"user";
 
    if (pszCmdLine != nullptr)
    {
        if (_wcsnicmp(pszCmdLine, szUserSwitch, _countof(szUserSwitch)) == 0)
        {
            ATL::AtlSetPerUserRegistration(true);
        }
    }
 
    if (bInstall)
    {
        hr = DllRegisterServer();
        if (FAILED(hr))
        {
            DllUnregisterServer();
        }
    }
    else
    {
        hr = DllUnregisterServer();
    }
 
    return hr;
}
 
// Экспортируемая функция
extern "C" double __stdcall Multiply(double a, double b)
{
    return a * b;
}

; SimpleMathCOM.def: объявляет параметры модуля.
 
LIBRARY SimpleMathCOM
 
EXPORTS
    DllCanUnloadNow     PRIVATE
    DllGetClassObject   PRIVATE
    DllRegisterServer   PRIVATE
    DllUnregisterServer PRIVATE
    DllInstall          PRIVATE
    Multiply @1

// SimpleMathCOM.idl: источник языка IDL для SimpleMathCOM
//
 
// Этот файл будет обработан средством MIDL для
// создание библиотеки типов ($handlersafeidlname$.tlb) и кода маршалирования.
 
import "oaidl.idl";
import "ocidl.idl";
 
[
    uuid(8ccd6502-788a-41e1-8886-d80a370ca5be),
    version(1.0),
    helpstring("Simple Math COM Library")
]
library SimpleMathCOMLib
{
    importlib("stdole2.tlb");
    
    [
        uuid(d61a41aa-07eb-4d91-ba9f-4deb7137f80a),
        dllname("SimpleMathCOM.dll"),
        helpstring("Math functions module")
    ]
    module MathFunctions{
        [entry("Multiply")]
        double __stdcall Multiply(
            [in] double a,
            [in] double b);
    };
};

#include "pch.h"
//#include "Dll4.h"
 
double Multiply(double a, double b){
    return a * b;
}

// Приведенный ниже блок ifdef — это стандартный метод создания макросов, упрощающий процедуру
// экспорта из библиотек DLL. Все файлы данной DLL скомпилированы с использованием символа DLL4_EXPORTS
// Символ, определенный в командной строке. Этот символ не должен быть определен в каком-либо проекте,
// использующем данную DLL. Благодаря этому любой другой проект, исходные файлы которого включают данный файл, видит
// функции DLL4_API как импортированные из DLL, тогда как данная DLL видит символы,
// определяемые данным макросом, как экспортированные.
//#ifdef DLL4_EXPORTS
//  #define DLL4_API __declspec(dllexport)
//#else
//  #define DLL4_API __declspec(dllimport)
//#endif
 
// Этот класс экспортирован из библиотеки DLL
//class DLL4_API CDll4 {
//public:
//  CDll4(void);
//  // TODO: добавьте сюда свои методы.
//};
 
//extern DLL4_API int nDll4;
 
//DLL4_API int fnDll4(void);
 
//#ifdef __cplusplus
//extern "C" {
//#endif
    double Multiply(double a, double b);
    double Divide(double a, double b);
//#ifdef __cplusplus
//}
//#endif