Dear expert,

I am ailed with a very strange bug.

A VB6 project group consists of an ActiveX DLL and a Standard EXE.

The EXE cannot see the DLL. Why is that? The strangest thing is that this
used to work. Today when I ran the project, the EXE could not see the public
properties of the DLL, although it did see a function. It was fiddling with
it trying to identify and problem and ended up in a situation when the EXE
does not see the DLL.

Please help me identify the problem? What settings could force this type of
behavior?

Thank you very much for your help.

The DLL project and class module files are listed below for your convenience.

Thank you very much for you help and your time.

Regards,
bv003

‘------------------------------------------------------------------------------------------------Type=OleDll
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\STDOLE2.TLB#OLE Automation
Reference=*\G{91493440-5A91-11CF-8700-00AA0060263B}#2.6#0#C:\Program
Files\Microsoft Office\Office\msppt9.olb#Microsoft PowerPoint 9.0 Object
Library
Reference=*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program
Files\Microsoft Office\Office\mso9.dll#Microsoft Office 9.0 Object Library
Reference=*\G{00020813-0000-0000-C000-000000000046}#1.3#0#C:\Program
Files\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library
Reference=*\G{3F4DACA7-160D-11D2-A8E9-00104B365C9F}#5.5#0#C:\WINNT\system32\vbscript.dll\3#Microsoft VBScript Regular Expressions 5.5
Module=mdlMkSlide; mdlMkSlide.bas
Module=mdlImage; mdlImage.bas
Module=mdlFormat; mdlFormat.bas
Module=mdlConsts; mdlConsts.bas
Module=mdlFormatData; mdlFormatData.bas
Module=mdlStrObj; mdlStrObj.bas
Module=mdlParse; mdlParse.bas
Module=mdlGeneratorData; mdlGeneratorData.bas
Class=Generator; clsGenerator.cls
Startup="(None)"
HelpFile=""
Title="PowerPoint Slide Generator"
ExeName32="PPSG.dll"
Path32="_compiled"
Command32="H:\PPSG\templates\template_01.pot,H:\PPSG\formats1\,H:\PPSG\templates\ppsg_cfg_001.csv,H:\PPSG\smp\M12FH.jpg,H:\PPSG\smp\01_M12FH_01.gif,H:\PPSG\smp\02_M12FH_01.gif,Tom's Text"
Name="PPSG"
HelpContextID="0"
CompatibleMode="1"
MajorVer=1
MinorVer=0
RevisionVer=30
AutoIncrementVer=1
ServerSupportFiles=0
VersionComments="PowerPoint Slide Generator"
VersionCompanyName="United Technologies Corporation, Pratt & Whitney"
VersionFileDescription="Command file PowerPoint slide generator"
VersionLegalCopyright="Boris Vaisman, PW, UTC"
VersionLegalTrademarks="UTC, PW, Thermal Wizard"
VersionProductName="PPSG"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=1
Unattended=-1
Retained=1
ThreadPerObject=0
MaxNumberOfThreads=1
ThreadingModel=0
DebugStartupOption=0

[MS Transaction Server]
AutoRefresh=1

[PowerVB Console Application Add-In]
ConsoleApp=-1
‘------------------------------------------------------------------------------------------------VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Generator"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Public Function Run(ByRef RunArgs As String) As String
On Error GoTo FixError

Dim sTmp() As String

If p_TemplateData = Empty Then Err.Raise BaseErrorNum + 3,
"PPSG:mdlMkCompSlide:MakeSlide", "Template data not specified"

sTmp = Split(RunArgs, Delim_Gen)
mdlMkSlide.MakeSlide sTmp()

Run = SuccessRetMsg

Exit Function
FixError:
If Err.Number < BaseErrorNum Then
Run = BaseErrorNum & " - " & Err.Number & ":" & Err.Description & ":
(DLL " & Err.LastDllError & ") >" & "PPSG:Main"
Else
Run = Err.Number & " - " & Err.Description & ": (DLL " &
Err.LastDllError & ") >" & Err.Source
End If
End Function
Public Property Get PresInsertionPath() As String

PresInsertionPath = p_PresInsertionPath

End Property
Public Property Let PresInsertionPath(ByVal NewValue As String)

If Not NewValue = Empty And Dir$(NewValue, vbNormal) = Empty Then Err.Raise 76
p_PresInsertionPath = NewValue
If p_PresInsertionPath = Empty Then p_InsertionPosition = 1

End Property
Public Property Get InsertionPosition() As Integer

InsertionPosition = p_InsertionPosition

End Property
Public Property Let InsertionPosition(ByVal NewValue As Integer)

If p_InsertionPosition = Empty Then Exit Property
p_InsertionPosition = IIf(NewValue > 0, NewValue, 1)

End Property
Public Property Get TemplateData() As String

TemplateData = p_TemplateData

End Property
Public Property Let TemplateData(ByVal NewValue As String)

If Not NewValue = Empty And Dir$(NewValue, vbNormal) = Empty Then Err.Raise 76
p_TemplateData = NewValue

End Property
Public Property Get FormatDataDir() As String

FormatDataDir = p_FormatDataDir

End Property
Public Property Let FormatDataDir(ByVal NewValue As String)

If Not NewValue = Empty And Dir$(FormatDataDir, vbDirectory) = Empty Then
Err.Raise 76
p_FormatDataDir = NewValue & IIf(Right$(NewValue, 1) = "/", Empty, "/")

End Property
Public Property Get PresFormat() As String

PresFormat = p_PresFormat

End Property
Public Property Let PresFormat(ByVal NewValue As String)

p_PresFormat = NewValue

End Property
Public Property Get SlideFormat() As String

SlideFormat = p_SlideFormat

End Property
Public Property Let SlideFormat(ByVal NewValue As String)

p_SlideFormat = NewValue

End Property
Private Sub Class_Initialize()

p_InsertionPosition = 1
Debug.Print mdlFormatData.FormatDataCount

End Sub
‘------------------------------------------------------------------------------------------------

Archived from group: microsoft>public>vb>controls>creation