First, create a VB4-16 project and call it VB16Project. In the project, create a class module that includes a function that calls your 16-bit DLL in the usual way. Name the class VB16Class and the function VB16DLLCall. In your VB4-16 project, remove the default form and add a standard module with a Main subroutine or function.
Under the Tools/Options/Project/StartMode section, click on the OLE Server radio button. Make sure your class module’s Instancing Property is set to 1 (CreateableSingleUse) or 2 (CreateableMultiUse). Compile and save your project as an Executable. Now create a 32-bit application using VB4-32 or VB5. To call the 16-bit DLL in your 32-bit project, use this code:
Dim MyObj as Object Set MyObj = CreateObject("VB16Project.VB16Class") Call MyObj.VB16DLLCall()
